以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CurrentChanged事件“未将对象引用设置到对象的实例”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175987)

--  作者:1669607010
--  发布时间:2022/3/26 9:55:00
--  CurrentChanged事件“未将对象引用设置到对象的实例”
Case "生产通知订单投产"
        Dim t As DataTable = DataTables("生产通知订单投产详情")
        If e.Table.Current Is Nothing Then
            t.LoadFilter = "_Identify is null"
            t.Load
            If  Forms("生产通知").Opened  and  Forms("生产通知").Controls("TabControl1").SelectedIndex = 0 Then
                
               DataTables("生产工艺总设计单").LoadFilter = "_Identify is null"
               DataTables("生产工艺总设计单").Load
            End If
        Else
            t.LoadFilter = "通知编号=\'" & e.Table.Current ("通知编号") & "\'"
            t.Load
            If  Forms("生产通知").Opened  and    Forms("生产通知").Controls("TabControl1").SelectedIndex = 0 Then
                If e.Table.Current("产品品号")  IsNot Nothing Then
                   DataTables("生产工艺总设计单").LoadFilter = "品号=\'" & e.Table.Current ("产品品号") & "\'"
                    DataTables("生产工艺总设计单").Load
                End If
                
            End If
            
        End If



CurrentChanged事件里有上面的一段代码,加上红色的部分每次登录项目的时候就报错“未将对象引用设置到对象的实例”,关闭错误提示后,也能进入项目。删除了红色的代码就正常了,哪位老师给分析一下,有可能是哪里的问题,谢谢!


--  作者:有点蓝
--  发布时间:2022/3/26 10:22:00
--  
http://www.foxtable.com/webhelp/topics/0220.htm

If  Forms("生产通知").Opened  andalso  Forms("生产通知")

--  作者:1669607010
--  发布时间:2022/3/26 10:31:00
--  
谢谢老师指导,解决了!