窗口中的table1关联到表1设置为附表，然后在附表的currentchanged中设置了联动
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("RMT收据").FindRow(dr)
If wz >=0 Then
Tables("RMT收据").Position = wz
End If
textbox 的textchange 设置成
Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As Table = Tables("病例_Table1")
Dim tbl1 As Table = Tables("病例_Table2")
If txt = "" Then
tbl.Filter = ""
tbl1.Filter = ""
Else txt = "'%" & txt & "%'"
tbl.Filter = "全名 Like " & txt & " or No Like " & txt
tbl1.Filter = "na Like " & txt & " or 编号 Like " & txt
End If
==================
当查询内容为空的时候，会出现
未将对象引用设置到对象的实例。”报错
请问如何修改代码
谢谢
加好友 
发短信
Post By：2022/9/4 1:22:00 [只看该作者]
