主题:继续提问DataGrid的问题~~~~~~~~~~~~~~~~~~~~~~
我有一个DataGrid和两个按钮,分别为添加和删除,代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim insertcmd As String
insertcmd = "insert into ejlm values ('" & GetSqlStr(ComboBox1.Text).Trim & "','" & GetSqlStr(TextBox1.Text).Trim & "','" & GetSqlStr(TextBox2.Text).Trim & "')"
Dim conn As SqlConnection, cmd As SqlCommand
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(insertcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
[color=FF0000] Me.SqlDataAdapter2.Fill(DataSet71.Tables(1)[/color] Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim delcmd As String
delcmd = "delete from ejlm where ejlm='" & GetSqlStr(TextBox2.Text) & "'"
Dim conn As SqlConnection, cmd As SqlCommand
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(delcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
[color=FF0000] Me.SqlDataAdapter2.Fill(DataSet71.Tables(1)[/color] Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
现在很奇怪的就是,在添加中,红字部分对DataGrid的重新填充有效,而删除中就没效了。大家帮我来找找原因,或者提出个解决办法也行。我希望执行删除后,DataGrid中显示的数据是最新的。谢谢了~~~~~~~~~~~~~~~~~~~~~`
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim insertcmd As String
insertcmd = "insert into ejlm values ('" & GetSqlStr(ComboBox1.Text).Trim & "','" & GetSqlStr(TextBox1.Text).Trim & "','" & GetSqlStr(TextBox2.Text).Trim & "')"
Dim conn As SqlConnection, cmd As SqlCommand
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(insertcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
[color=FF0000] Me.SqlDataAdapter2.Fill(DataSet71.Tables(1)[/color] Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim delcmd As String
delcmd = "delete from ejlm where ejlm='" & GetSqlStr(TextBox2.Text) & "'"
Dim conn As SqlConnection, cmd As SqlCommand
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(delcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
[color=FF0000] Me.SqlDataAdapter2.Fill(DataSet71.Tables(1)[/color] Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
现在很奇怪的就是,在添加中,红字部分对DataGrid的重新填充有效,而删除中就没效了。大家帮我来找找原因,或者提出个解决办法也行。我希望执行删除后,DataGrid中显示的数据是最新的。谢谢了~~~~~~~~~~~~~~~~~~~~~`