- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]首次打开项目属性修改项目事件后保存时报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147973)
-- 发布时间：2020/3/28 11:34:00
-- [求助]首次打开项目属性修改项目事件后保存时报错
升级了最新版后，就一直有这种情况，请老师看下
此主题相关图片如下：1.jpg
2e157b.txt文件的内容如下：
2020-03-18 22:45|2020-1-19
2020-03-18 22:45|2020-1-19
我已经升级到0311版了
[此贴子已经被作者于2020/3/28 11:34:10编辑过]
-- 发布时间：2020/3/28 11:37:00
--
F盘是本地硬盘吗？
升级代码在什么事件？这个事件完整代码发上来看看
-- 发布时间：2020/3/28 11:44:00
--
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编辑过]
-- 发布时间：2020/3/28 12:06:00
--
修改项目事件，点击项目属性窗口确定按钮的时候会执行项目事件。是不是项目里的发布时间改的比之前发布的升级时间小了？
如果是在开发的时候这种升级提示可以不用理会的
-- 发布时间：2020/3/28 12:17:00
--
不是的，我刚才又改了好几次项目事件，不报错了，老师，我终于能反复重演之前一直反映的“开发程序升级到最新版后项目不稳定会报错”，过会我单独发个帖子，把项目发上来，请您看下，不容易啊，这个报错的产生原因藏的太深了