在AfterOpenProject事件代码如下:
--------------------------------------------
msgbox(1)
Syscmd.Project.Update(True,True)
msgbox(2)
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
msgbox(3)
For Each dt As DataTable In DataTables
dt.SysStyles("EmptyArea").BackColor = Color.White
Next
msgbox(4)
Forms("主界面左导航").Open()
msgbox(5)
------------------------------------
窗口主界面左导航的 AfterLoad事件中也加了调试信息
--------------------------
msgbox(11)
e.Form.Controls("制造信息录入").Enabled = False
e.Form.Controls("制造信息录入").Visible = False
e.Form.Controls("制造信息录入").ForeColor = Color.LightGray
---------------------------
现在外网电脑运行,就出现1 2 3 4,然后提示关键字错误,没有出现11,也没有出现5。
[此贴子已经被作者于2016/2/17 10:38:36编辑过]