[求助]表不加载数据的时候弹出错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表不加载数据的时候弹出错误

共有1679人关注过本帖树形打印复制链接主题：[求助]表不加载数据的时候弹出错误

紫色幽魂

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

加好友

发短信

等级：三尾狐帖子：682 积分：5382 威望：0 精华：0 注册：2015/1/23 0:31:00

[求助]表不加载数据的时候弹出错误 发帖心情

Post By：2018/7/13 14:48:00 [只看该作者]

错误所在事件：无损_构件清单,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。

If e.Table.Current IsNot Nothing AndAlso Forms("工厂无损录入主界面").Opened Then

Dim sd As WinForm.CheckBox = Forms("工厂无损录入主界面").Controls("锁定_工厂")

If sd.Checked = True

Return

Else

Forms("工厂无损录入主界面").Controls("车间").Text = e.Table.current("车间")

Forms("工厂无损录入主界面").Controls("班组").Text = e.Table.current("班组")

End If

If e.Table.Current IsNot Nothing AndAlso Forms("工厂无损录入主界面").Opened Then

Dim bz As WinForm.ComboBox = Forms("工厂无损录入主界面").Controls("班组")

If e.Table.Current("构件编号") = "下料" Then

bz.Value = "下料"

End If

有点甜

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

加好友

发短信

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

Post By：2018/7/13 16:08:00 [只看该作者]

改成下面，如果还报错，应该不是这段代码有问题。

systemready = False
Dim r As Row = e.Table.current
If r IsNot Nothing AndAlso Forms("工厂无损录入主界面").Opened Then
    Dim sd As WinForm.CheckBox = Forms("工厂无损录入主界面").Controls("锁定_工厂")
    If sd.Checked = True
        Return ""
    Else
        Forms("工厂无损录入主界面").Controls("车间").Text = r("车间")
        Forms("工厂无损录入主界面").Controls("班组").Text = r("班组")
    End If
End If

If r IsNot Nothing AndAlso Forms("工厂无损录入主界面").Opened Then
    Dim bz As WinForm.ComboBox = Forms("工厂无损录入主界面").Controls("班组")
    If r("构件编号") = "下料" Then
        bz.Value = "下料"
    End If
End If
systemready = True