Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于OPENQQ的使用


  共有1722人关注过本帖树形打印复制链接

主题：关于OPENQQ的使用
帅哥哟，离线，有人找我吗？
zhy400137
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		关于OPENQQ的使用  发帖心情 Post By：2017/8/2 13:29:00 [只看该作者]

有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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/2 13:46:00 [只看该作者]


 回到顶部
客人(42.243.*.*)
 小大  3楼


  发帖心情 Post By：2017/8/2 13:52:00 [只看该作者]

1 问题暂时清楚了
2 问题，我一楼附代码了，还要麻烦版主，大约看下有没什么问题，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/2 13:54:00 [只看该作者]

退出时，这样写有没什么问题？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询