请帮忙看一下DATAGRID 编辑一行后无法更新到数据库中
Sub DataGrid_Update(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim SqlSelectCommand1 As SqlClient.SqlCommand
'Dim ds As DataSet
Dim updatecmd As String = "UPDATE KHWXDStable SET XingMing = @XingMing, BuMeng = @BuMeng, GuZhangXX = @GuZhangXX WHERE (KHDanNO = @Original_KHDanNO)"
'SqlSelectCommand1 = New SqlClient.SqlCommand("NewUpdateCommandkhwx", SqlConnection1)
SqlSelectCommand1 = New SqlClient.SqlCommand(updatecmd, SqlConnection1)
'SqlSelectCommand1.Parameters.Add(New SqlClient.SqlParameter("@XingMing", SqlDbType.Char, 20))
'SqlSelectCommand1.Parameters.Add(New SqlClient.SqlParameter("@BuMeng", SqlDbType.Char, 12))
'SqlSelectCommand1.Parameters.Add(New SqlClient.SqlParameter("@GuZhangXX", SqlDbType.VarChar, 50))
'SqlSelectCommand1.Parameters.Add(New SqlClient.SqlParameter("@Original_KHDanNO", SqlDbType.BigInt, 8))
'SqlSelectCommand1.Parameters("@Original_KHDanNO").Value = DataGrid1.DataKeys(CInt(e.Item.ItemIndex))
'Dim Cols As String() = {"@XingMing", "@BuMeng", "@GuZhangXX", "@Original_KHDanNO"}
'SqlSelectCommand1.CommandType = CommandType.StoredProcedure
SqlSelectCommand1.Parameters.Add("@Original_KHDanNO", DataGrid1.DataKeys(CInt(e.Item.ItemIndex)))
Dim Cols As String() = {"@XingMing", "@BuMeng", "@GuZhangXX"}
Dim NumCols As Integer = e.Item.Cells.Count
Dim i As Integer
Dim introw As Integer
'introw = e.Item.ItemIndex
For i = 1 To NumCols - 7
Dim CurrentTextBox As TextBox
CurrentTextBox = e.Item.Cells(i).Controls(0)
Dim ColValue As String = CurrentTextBox.Text
If i < 4 And ColValue = "" Then
MsgBox("错误:""姓名"" ""部门"" ""故障现象"" ""不允许为空""")
Return
End If
SqlSelectCommand1.Parameters.Add(Cols(i - 1), ColValue)
Next
SqlConnection1.Open()
SqlSelectCommand1.ExecuteNonQuery()
DataGrid1.EditItemIndex = -1
SqlConnection1.Close()
SqlSelectCommand1 = Nothing
BindGrid()
End Sub