在我的vb.net项目中,我有3种形式。 home_mdi
,Viewfrm
和AddDatafrm
。UltraWinGrid自动刷新
Viewfrm
上面有一个UltraWinGrid,它正在显示一些数据。当我点击add data
按钮时,AddDatafrm
打开。数据保存后,表单将关闭。 此时,我想要Viewfrm
上的UltraWinGrid更新/刷新并显示我添加的数据。目前,它不显示它,直到我关闭Viewfrm
,然后再次打开它。
图片显示了这一点。 (数据根本不存在开始,然后将其添加并没有出现,最终的图像显示的是新的数据形式,我已经重新开放后。
我如何改变这种
当前代码:
,打开添加形式
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Using fp = New frmAddData(Globals.m_database)
If fp.ShowDialog() = DialogResult.OK Then
ugData.DataSource = Nothing
getPeople()
End If
End Using
End Sub
要保存输入的信息(添加表格)
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim m_cn As New OleDbConnection
m_cn = Globals.m_database.getConnection()
If txtFirstName.Text = "" Then
MsgBox("First name cannot be blank")
ElseIf txtLastName.Text = "" Then
MsgBox("Last name cannot be blank")
ElseIf txtAge.Text = "" Then
MsgBox("Age cannot be blank")
ElseIf txtPostCode.Text = "" Then
MsgBox("Postcode cannot be blank")
Else
Dim personID As Integer = database.SaveNewPerson(txtFirstName.Text, txtLastName.Text, txtAge.Text, txtPostCode.Text, m_cn)
MsgBox("Save successful")
txtFirstName.Text = ""
txtLastName.Text = ""
txtAge.Text = ""
txtPostCode.Text = ""
Globals.savedValue = True
Me.Close()
End If
End Sub
调用来加载,查看表单上的数据库:
Public Sub getPeople()
Try
Dim sql As String = "SELECT * FROM tblPerson ORDER BY [personID] ASC;"
Dim cm As New OleDbCommand(sql, Globals.m_database.getConnection())
Dim da As New OleDbDataAdapter(cm)
Dim dt As New DataTable()
da.Fill(dt)
ugData.DataSource = dt
Catch Ex As Exception
mdi1.errorLog(Ex.Message, Ex.StackTrace)
MsgBox("Failed to retrieve data, refer to error log")
End Try
End Sub
什么是错的在2天前我给你的那个人? – Steve
@Steve这是因为你使用了“使用fp作为新的frmAddData”语句,它会自动用'frmView'打开'AddData'表单,而我最初只想打开'frmView',但要刷新数据保存表格关闭 – David
该代码应该进入frmView中按钮添加的事件处理程序中。你把它放在哪里? – Steve