主题：问题

DataTables("信息总表").Load
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("信息总表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "出厂编号 Like " & txt  & " Or 使用单位 Like " & txt 
End If
MessageBox.Show("本次查询表中共有" & tbl.Rows.count & "条记录")

'Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox3")
't1.Value = "本次查询表中共有" & tbl.Rows.count & "条记录"

Dim Book As New XLS.Book(ProjectPath & "Attachments\电梯信息表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\电梯信息表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 

我希望通过上述代码，在textbok1中输入某个出厂编号，然后，关联查询表能够先更新，然后找到我需要的信息的那一行，接着打印报表。

如今发现，通过上述代码，关联表一直不更新。我打前面两个相关连的信息改变了，包括改变关联行，删除整个关联行，结果关联表不能同时改变。

问题：1.之前提供的刷新的关联表的代码不好用，没起到刷新的作用。

         2..能不能通过按钮手动刷新关联表。

        3..关联查询表怎么可以和母表同步。

                                                                                                                                                                 谢谢@！

重新Load一次肯定可以刷新

我在多个地方尝试输入语句DataTables("信息总表").Load，但是都没反应。

而且我两个关联表都无法刷新。

上例子,不可能

你修改了的表,要先保存,  这样查询表再Load才会显示更新的数据,未保存数据库还是老数据哦

你的意思是差了个保存表的代码？求解决办法

刷新就是简单的两句代码啊。不行，就请上传例子。   DataTables("信息总表").Load Tables("信息总表.子表").DataTable.Load

的确是修改的子表没有保存，所以一直不能更新。