主题：[求助]使用8-12版BeforeCloseProject事件出错!

使用8-12开发新版。升级下载文件完成后，提示“....请重新启动以完成余下启动过程"，当确认后，系统关闭启动了BeforeCloseProject进程，就出现了错误提示。

 

见下图。

 

BeforeCloseProject进程程序如下。第一条语句宇是个显示语句，但是出错时这条语句根本就没运行到。升级成功后则程序就正常了！不再出现上述的错误！

 

MessageBox.Show(0)
If Vars("登陆IP")=0 Then Return
MessageBox.Show(1)
Dim s As DataRow=DataTables("登陆记录").Sqlfind("[_Identify]=" & Vars("登陆IP"))
If s IsNot Nothing Then
    MessageBox.Show(2)
    s("退出时间")=Date.now
   .....    
    s.save
   
Else
    MessageBox.Show(3)
    Dim r As Row=Tables("登陆记录").AddNew
   ......

    r.save
   
End If

此主题相关图片如下：qq1.jpg


此主题相关图片如下：qq2.png


此主题相关图片如下：qq3.png

加入SystemReady = False这条语句,正常登陆窗口都不动作了

升级前是好用的!

现在升级出错后,再启动升级后程序就好用了!

就是在升级过程下载数据，关闭程序时出现错误！这应该是升级后程序的一个问题

别说没办法了啊!原来好用的,升级后就不好用了

刚才把BeforeCloseProject的代码全部封上了,错误就没了!

 

下面是升级语句,哪还有错啊?

If Syscmd.Project.Update(False,True) = False Then '如果没有升级
    Forms("登陆窗口").Open()
End If

Var变量必须提前定义这个问题我也考虑到了,也将其分别定义为True和False 但是错误仍然出现

SystemReady = False

If Syscmd.Project.Update(False,True) = False Then '如果没有升级
    Forms("登陆窗口").Open()
End If

这么写登陆窗口就不动了;

 

SystemReady = False

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

SystemReady = true
    Forms("登陆窗口").Open()
End If

这么写错误又来了;

就是在升级下载文件后，确认重新启动程序时出来这么一次告警。升级完成后就不再出现这个错误了；

很显然这是在升级下载文件后，关闭程序时仍然触发了BeforeCloseProject这个事件，但是运行条件不够就出现错误了。升级后重新启动再关闭程序触发了BeforeCloseProject，这时正常了所以就不出错了！

请官家帮助解决下！谢谢

 

谢谢狐爸谢谢甜。按照狐爸意见修改后没问题了！