以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]非正常退出时,触发项目BeforeCloseProject事件问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138424)

--  作者:hanzhang98
--  发布时间:2019/7/31 9:15:00
--  [求助]非正常退出时,触发项目BeforeCloseProject事件问题
老师好。在BeforeCloseProject事件有记录用户退出、及保存数据的代码如下:

Dim dtt As DataTable = DataTables("登录日志")
vars("行")("用户名") = _UserName
vars("行")("退出")= "退出系统"
vars("行")("退出日期时间")= Date.Now() 
dtt.save()

For Each dt As DataTable In DataTables  
    dt.save    
Next

在自定义用户登录窗口,当点击【取消】按钮(也就是不登录)时,也要触发BeforeCloseProject事件,就要出现系统错误提示如下图,请教老师,如何才能不出现此系统错误提示。谢谢

图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2019/7/31 9:21:24编辑过]

--  作者:有点蓝
--  发布时间:2019/7/31 9:27:00
--  
第一行加上

if vars("行") is nothing then return

--  作者:hanzhang98
--  发布时间:2019/7/31 10:22:00
--  
谢谢。