导入窗口中做了一个模糊查询功能
模糊查询文本框的TextChanged代码如下
Dim txt As String = e.Form.Controls("模糊查询").Text
Dim tbl As Table = Tables("导入窗口_报关单")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "海关编号 Like " & txt & " Or 合同协议号 Like " & txt
End If
报关单副本表的CurrentChanged代码如下:(用于关联报关明细单的副本表)
Tables("导入窗口_报关明细单").Filter = "海关编号 = '" & Tables("导入窗口_报关单").Current("海关编号") & "'"
For Each r As Row In Tables("导入窗口_报关明细单").Rows
r.Checked = True
Next
问题,当模糊查询文本框中输入的数据在报关单中不存在的时候, 出现下列错误提示, 怎么办?
.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2014.8.15.1
错误所在事件:报关单,CurrentChanged
详细错误信息:
未将对象引用设置到对象的实例。
此主题相关图片如下:导入窗口.png