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事件里有上面的一段代码，加上红色的部分每次登录项目的时候就报错“未将对象引用设置到对象的实例”，关闭错误提示后，也能进入项目。删除了红色的代码就正常了，哪位老师给分析一下，有可能是哪里的问题，谢谢！
加好友 
发短信
Post By：2022/3/26 9:55:00 [显示全部帖子]
