Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("合同明细_Table1")
If txt = "" Then
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load()
Else
    txt = "\'%" & txt & "%\'"
    tbl.DataTable.loadFilter = "中间人 Like " & txt & " Or 被询问人 Like " & txt & " Or 合同户名 Like " & txt
    tbl.DataTable.load()
End If

我在窗口textbox1的textchenged事件中写了以上代码，窗口表currenchanged事件中写了以下代码，但是当在合同明细中查询不相关数据时会出现红色的错误提示

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("合同明细").FindRow(dr)
If wz = -1 Then
    Return
Else
    Tables("合同明细").Position = wz
End If

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.11.1
错误所在事件：合同明细_Table1,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。