以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于OPENQQ的使用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104641)
--  作者：zhy400137
--  发布时间：2017/8/2 13:29:00
--  关于OPENQQ的使用
有OPENQQ的两个问题，要请教，谢谢~
1、客户端电脑如果休眠，3分钟左右，客户端会出现通用平台运行错误的提示，然后客户端就莫名退出了，
请教要如何处理？

2、做了个用户退出时，更新用户表在线状态的按钮，但会出现像第1条那种客户端意外退出，但不会更新在
线状态的情况，仍然显示在线，请教下我代码是哪错了？谢谢
Dim pts() As String = e.UserName.Split(".")
Dim dr As DataRow = DataTables("用户管理").Find("部门名称 = \'" & pts(0) & "\' And 用户编号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
    If e.Mode<>4 Then
        dr("状态")=Nothing
        dr.save
    End If
End If
--  作者：有点甜
--  发布时间：2017/8/2 13:46:00
--  

1、尝试控制不休眠 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102477&skin=0

 

2、UserLogOut事件 http://www.foxtable.com/webhelp/scr/2983.htm

 
--  作者：客人
--  发布时间：2017/8/2 13:52:00
--  
1 问题暂时清楚了
2 问题，我一楼附代码了，还要麻烦版主，大约看下有没什么问题，谢谢
--  作者：zhy400137
--  发布时间：2017/8/2 13:53:00
--  
Dim pts() As String = e.UserName.Split(".")
Dim dr As DataRow = DataTables("用户管理").Find("部门名称 = \'" & pts(0) & "\' And 用户编号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
    If e.Mode<>4 Then
        dr("状态")=Nothing
        dr.save
    End If
End If
--  作者：zhy400137
--  发布时间：2017/8/2 13:54:00
--  
退出时，这样写有没什么问题？
--  作者：有点甜
--  发布时间：2017/8/2 15:05:00
--  
以下是引用zhy400137在2017/8/2 13:54:00的发言：
退出时，这样写有没什么问题？

 

加入代码测试弹出什么。

 

msgbox(e.mode)

msgbox(e.UserName)

Dim pts() As String = e.UserName.Split(".")
Dim dr As DataRow = DataTables("用户管理").Find("部门名称 = \'" & pts(0) & "\' And 用户编号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
    If e.Mode<>4 Then
        msgbox(dr("状态"))
        dr("状态")=Nothing
        dr.save
    End If
End If