导入窗口中做了一个模糊查询功能
模糊查询文本框的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
详细错误信息：
未将对象引用设置到对象的实例。

If Tables("导入窗口_报关单").Current IsNot Nothing Then
   
    Tables("导入窗口_报关明细单").Filter = "海关编号 = \'" & Tables("导入窗口_报关单").Current("海关编号") & "\'"
    For Each r As Row In Tables("导入窗口_报关明细单").Rows
        r.Checked  = True
    Next
Else
    Tables("导入窗口_报关明细单").Filter = "1=2"
   
End If

目的，是让表格不显示任何东西，因为 1=2 显示是不满足的