筛选有的项目正常
筛选没有的项目时跳出如下信息
(窗口中的tables 是作为副本形式的)
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.8.3.1
错误所在事件:收费明细,CurrentChanged
详细错误信息:
未将对象引用设置到对象的实例。
代码如下
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("病人收费_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "病历号 Like " & txt & " Or 患者姓名 Like " & txt
End If