也可以自己设定命令列,设定自己的命令字。用户点击连接之后就会触发 dgShow.ItemCommand事件 如下面一段代码: Private Sub dgShow_ItemCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgShow.ItemCommand If e.CommandName.ToUpper = Convert.ToString("DELETE").ToUpper Then Dim myBh As String = Trim(Convert.ToString(Session("homeworktemp"))) Dim myDetailBh As String = Trim(e.Item.Cells(1).Text) Dim mySql As String = "DELETE FROM zyxjtemp WHERE bh = '" + myBh + "' AND tmbh = '" + myDetailBh + "'" Dim myCommand As SqlCommand = New SqlCommand(mySql, Me.myConn) Dim intError As Int32 = myCommand.ExecuteNonQuery() If intError = -1 Then 'error process End If myCommand = Nothing BindDataSource() End If End Sub
自动套用格式
有很多方案可供选择
前提是你添加了选择列
dgShow.ItemCommand事件
如下面一段代码:
Private Sub dgShow_ItemCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgShow.ItemCommand
If e.CommandName.ToUpper = Convert.ToString("DELETE").ToUpper Then
Dim myBh As String = Trim(Convert.ToString(Session("homeworktemp")))
Dim myDetailBh As String = Trim(e.Item.Cells(1).Text)
Dim mySql As String = "DELETE FROM zyxjtemp WHERE bh = '" + myBh + "' AND tmbh = '" + myDetailBh + "'"
Dim myCommand As SqlCommand = New SqlCommand(mySql, Me.myConn)
Dim intError As Int32 = myCommand.ExecuteNonQuery()
If intError = -1 Then
'error process
End If
myCommand = Nothing
BindDataSource()
End If
End Sub