F是本地硬盘，自动升级的代码是：AfterOpenProject
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
'下面的代码基于后台的用户表生成一个临时表,这个临时表没有加载数据,后面将基于此表和后台的用户表进行交互.
'注意这里要将ExecuteReader的参数设置为True,因为我们需要增加删除和修改用户,也就是说,不仅要读用户表,还要写用户表.
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S ELECT * From {Users} Where [Name] Is Null"
_UserTable = c md.ExecuteReader(True)
Dim QQcmd As New SQLCommand
QQcmd.C
QQcmd.Co mmandText = "S ELECT * From {QqServer配置}"
_dtQqServer配置 = QQcmd.ExecuteReader(False)
F orms("用户登录").Open()
If _UserName = "" Then
S yscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'--------------------------------------后续初始化代码
BaseMainForm.Text = _CompanyName &" ERP系统" '设置程序标题
ShowCloseButton = True '在主界面中显示关闭表的按钮
Tables("参数表").Visible = False '不显示此表
'---------------------------------------
End If
不过，刚才报错时我不是改这个事件，而是改了Initialize，这种情况发生过好几次了，只是今天发上来问下
[此贴子已经被作者于2020/3/28 11:45:15编辑过]
加好友 
发短信
Post By：2020/3/28 11:34:00 [只看该作者]
此主题相关图片如下：1.jpg