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.

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

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

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

Post By：2018/5/10 20:07:00 [显示全部帖子]

看一下4楼。

有点甜

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

加好友

发短信

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

Post By：2018/5/10 20:14:00 [显示全部帖子]

改成

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"

有点甜

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

加好友

发短信

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

Post By：2018/5/10 20:37:00 [显示全部帖子]

以下是引用Creast在2018/5/10 20:28:00的发言：

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

试试代码改成这样

Dim TCatg2 As WinForm.ComboBox = e.Form.Controls("TCategory2")    '类别
Dim yn As WinForm.CheckBox = e.Form.Controls("ExistPurchaseInfor")
If Tcatg2.Text<>"" Then
msgbox(123)
    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

msgbox(.filter)
End With
End If

然后试试把filter改成

.Filter="Category='" & TCatg2.Text & "'"

下一主题 >> << 上一主题

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