Question

vb.net+access求助。。。 求高手帮忙修改程序。。。。。。。。。。

一个宿舍管理程序当增加一个用户时提示增加成功，之后选择删除用户发现datagridview并未显示新增加用户，停止调试之后再从新开始调试选择删除账户发现datagridview显示新增加账户，之后选择删除，提示删除成功，但发现datagridview显示的数据没有变化，但打开数据库发现增加的信息已经删除了？？小弟初学皮毛求助高手。。。。。。

Public Class Form5

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
数据库DataSet.Clear()
Me.用户TableAdapter.Fill(Me.数据库DataSet.用户)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox1.Text = Form1.user Then
MsgBox("不能删除已登录用户！")
Else
Dim MydeleteCommand As New OleDb.OleDbCommand
MydeleteCommand.Connection = OleDbConnection
MydeleteCommand.CommandText = "delete from 用户 where 用户名='" & ComboBox1.Text & "'"
OleDbConnection.Close()
OleDbConnection.Open()
MydeleteCommand.ExecuteNonQuery()
OleDbConnection.Close()

Me.用户TableAdapter.Update(Me.数据库DataSet.用户)
DataGridView1.Refresh()
ComboBox1.Refresh()
MsgBox("用户已删除！")
Me.Close()

End If
End Sub
End Class
按照楼下的那位朋友的修改依旧不行。。。。。。。。。。

Answer 1

Me.用户TableAdapter.Update(Me.数据库DataSet.用户)
DataGridView1.Refresh()
把上面两行改成下面试试
Me.数据库DataSet.用户.Clear()
Me.用户TableAdapter.Fill(Me.数据库DataSet.用户)

追问

依旧不行。。。。调试点删除后datagridview显示的数据依旧没变化，依旧是重新调试后datagridview显示的数据才会改变。。

追答

我这么用就可以啊，那后面再加上一句试试：
Me.DataGridView1.DataSource=Me.数据库DataSet.用户