总是报错, 找不到解决方案, 明明确确存在数据,就是显示这个信息

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：ToolingTechList,CurrentChanged
详细错误信息：
Object reference not set to an instance of an object.

请帮助看一下,应该怎样解决?

运行窗体

贴出你ToolingTechList表的CurrentChanged事件代码

建议在第一行加上代码如

If e.Table.Current Is Nothing Then return

我的程序段:

Dim TCatg2 As WinForm.ComboBox = e.Form.Controls("TCategory2")    \'类别
Dim yn As WinForm.CheckBox = e.Form.Controls("ExistPurchaseInfor")
If Tcatg2.Text<>"" Then
   
    With Tables("PurchasingInfor_ToolingTechList_BK1")
        If yn.Checked Then
            .Filter="Category=\'" & TCatg2.Text & "\' and ExistInPurchasingFile =true "
        Else
            .Filter="Category=\'" & TCatg2.Text & "\' and ExistInPurchasingFile =False "
        End If
    End With
End If

有点甜,

我的toolingTechList的Currentchanged事件代码为:

Dim r As Row =Tables("PurchasingInfor_ToolingTechList_BK1").Current
Dim item1 As String = r("Item")
Tables("PurchaseInfor").Filter="Item = \'" & r("item") & "\'"
Tables("PurchaseInfor").Sort="AdvanceSupplier"

改成

If e.Table.Current Is Nothing Then return

Dim r As Row =Tables("PurchasingInfor_ToolingTechList_BK1").Current
Dim item1 As String = r("Item")
Tables("PurchaseInfor").Filter="Item = \'" & r("item") & "\'"
Tables("PurchaseInfor").Sort="AdvanceSupplier"

上面那个窗口倒不跳出来, 但实际上却有数据,不知道为什么没有筛选出来