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
Dim bz As WinForm.ComboBox = Forms("工厂无损录入主界面").Controls("班组")
If r("构件编号") = "下料" Then
bz.Value = "下料"
End If
End If
设置上面代码，然后删除项目里的bin目录，重启项目测试
加好友 
发短信
Post By：2018/7/13 22:28:00 [显示全部帖子]
