错误所在事件:无损_构件清单,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
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
End If