主题：Object reference not set to an instance of an object.

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

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

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

 

此主题相关图片如下：object reference not set to an instance of an objectjpg

运行窗体

此主题相关图片如下：2018-05-10 19_57_51-frmlistbox.jpg

此主题相关图片如下：2018-05-10 19_58_42-物料采购及基本库房管理维护.jpg

我的程序段:

 

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"

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

 

此主题相关图片如下：q1.jpg


此主题相关图片如下：q2.jpg

我先用显示所有方式确认存在上面的类别为"Boring Bar"的料号, 然后点击 下拉列表点选 "Boring Bar"则什么都不显示了

 

有点甜, 太感谢你了, 我按照您的建议,一步步继续查代码, 终于找到问题了, 加了你提供的那段 指令 后, 不能出现筛选结果的原因是 列号 搞错了.

实在抱歉!

If e.Table.Current Is Nothing Then return

这个指令是适用的, 再次感谢!