[求助]首次打开项目属性修改项目事件后保存时报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：[求助]首次打开项目属性修改项目事件后保存时报错