回 帖 发 新 帖 刷新版面

主题:继续提问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中显示的数据是最新的。谢谢了~~~~~~~~~~~~~~~~~~~~~`

回复列表 (共7个回复)

沙发

在Button2的事件中,在红色的字前面,加一句me.DataSet71.Tables(1).clean
就能达到的我的要求了。
可是,可是,我就是想不明白呀~~~~~~~~~~~~~~~~~~~~~~
为什么会发生这种事呢?????
来人啊 ~~~~~~~~~~~~~~~~~~~~~,人好少哦……

板凳

ms推崇绑定的概念,可我就不怎么喜欢,不知道什么时候就偷偷的给你关联了什么。
不如每次刷datasource

3 楼

不同意也得同意了,事实就是这样子了[em65]

4 楼

删除后 清除 表数据
    das.Tables(tablename).Clear()

5 楼

请问Visual Unit是什么?

6 楼

怎么没看到你写的与数据连接的部分啊,你是用手工相连的吗,你连的是什么数据库啊
是不是你忘了连数据库了呢

7 楼

我手工写过这样的代码,运行的很好
下面的句子是不是少了个括号,可以正常编译吗?
Me.SqlDataAdapter2.Fill(DataSet71.Tables(1)
---Me.SqlDataAdapter2.Fill(DataSet71.Tables(1))

我来回复

您尚未登录,请登录后再回复。点此登录或注册