老师,我这个跟你给出的提示不一样,现在问题是,第一次启动是正常的,关闭后,启动就不行了。无任何错误提示
启动代码如下。。。。
If Syscmd.Project.Update(False,False) = False Then
Forms("登录窗口").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Tables("BOM").Cols("子阶代码").DropForm = "物料表查找下拉"
Tables("生产车间欠料表").Cols("物料代码").DropForm = "物料表查找下拉"
Tables("常用物料总表").Cols("子阶代码").DropForm = "物料表查找下拉"
Tables("对应表").Cols("物料代码").DropForm = "物料表查找下拉"
If _userRoles Like "*采购*" Then
RibbonTabs("采购管理").Visible = True
End If
If _userRoles Like "*系统管理员*" Then
RibbonTabs("系统").Visible = True
End If
Tables("Users").Visible = False
BaseMainform.Text = "生产管理系统 " & Vars("版本")
AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
nfi.ContextMenuStrip = cms
nfi.Text = "酷狗音乐" '鼠标移上去显示的文本
nfi.Icon = new Icon(ProjectPath & "\kg.ico") '图标地址
nfi.Visible = True '设置为显示
End If