Object reference not set to an instance of an object. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Object reference not set to an instance of an object.

共有2708人关注过本帖树形打印复制链接主题：Object reference not set to an instance of an object.

Creast

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：829 威望：0 精华：0 注册：2017/8/17 18:16:00

Object reference not set to an instance of an object. 发帖心情

Post By：2018/5/10 19:57:00 [只看该作者]

图片点击可在新窗口打开查看

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

.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

Creast

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：829 威望：0 精华：0 注册：2017/8/17 18:16:00

Post By：2018/5/10 19:58:00 [只看该作者]

运行窗体

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

Creast

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：829 威望：0 精华：0 注册：2017/8/17 18:16:00

Post By：2018/5/10 19:59:00 [只看该作者]

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/10 20:02:00 [只看该作者]

贴出你ToolingTechList表的CurrentChanged事件代码

建议在第一行加上代码如

If e.Table.Current Is Nothing Then return

Creast

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：829 威望：0 精华：0 注册：2017/8/17 18:16:00

[求助]

Post By：2018/5/10 20:05:00 [只看该作者]

我的程序段:

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

[此贴子已经被作者于2018/5/10 20:06:22编辑过]

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/10 20:07:00 [只看该作者]

看一下4楼。

Creast

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：829 威望：0 精华：0 注册：2017/8/17 18:16:00

Post By：2018/5/10 20:12:00 [只看该作者]

有点甜,

我的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"