***********************************************************************
Public Function Check(ByVal aa As Object) As Boolean
If Not IsDBNull(aa) Then
If CStr(aa) = CStr(Session("schoolid")) Then
Return True
Else
Return False
End If
Else
Return False
End If
Return False
End Function
'保存学校的选课设置
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'先删除记录然后在插入。
Dim cmdDelete As New SqlCommand("delete from schoolsubject where schoolid=@schoolid", cnn)
Dim strCmd As String = "insert into schoolsubject values(@schoolid,@subjectid)"
Dim cmdAdd As New SqlCommand(strCmd, cnn)
cmdDelete.Parameters.Add("@schoolid", Session("schoolid"))
Dim item As DataGridItem
Dim chk As CheckBox
Dim transaction As SqlTransaction
Try
cnn.Open()
transaction = cnn.BeginTransaction
cmdDelete.Transaction = transaction
cmdAdd.Transaction = transaction
cmdDelete.ExecuteNonQuery()
For Each item In dgdSubject.Items
chk = item.FindControl("chksubject")
If CType(chk, CheckBox).Checked = True Then
cmdAdd.Parameters.Clear()
cmdAdd.Parameters.Add("@schoolid", Session("schoolid"))
cmdAdd.Parameters.Add("@subjectid", dgdSubject.DataKeys(item.ItemIndex))
cmdAdd.ExecuteNonQuery()
End If
Next
transaction.Commit()
Catch ex As Exception
Response.Write(ex.Message)
transaction.Rollback()
Finally
cnn.Close()
End Try