| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- CurrentChanged事件“未将对象引用设置到对象的实例” (http://foxtable.com/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 -- 谢谢老师指导，解决了！ |