主题：[求助]使用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