以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  强制关闭前执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77835)

--  作者:sf020cf
--  发布时间:2015/11/26 10:43:00
--  强制关闭前执行

 在某些时候 项目未能安全退出 (调用任务管理器强制关闭)

在哪加入下面的代码:

Dim dr As DataRow
    Dim hyzh As String =e.Form.Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = \'" & hyzh & "\' ")
    dr("用户状态") = False
 以免重新登录时 显示账号已登录 不能重复登录

我在BeforeCloseProject 加入

Dim dr As DataRow
    Dim hyzh As String =Forms("主界面").Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = \'" & hyzh & "\' ")
    dr("用户状态") = False
也没用 要怎样改


--  作者:大红袍
--  发布时间:2015/11/26 11:38:00
--  

你这个要用到OpenQQ来通信才行。

 

http://www.foxtable.com/help/topics/2996.htm