- 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=109119)
-- 发布时间：2017/11/4 17:00:00
-- OpenQQ在同一台电脑测试
这是客户端的ReceivedMessage中
Dim msg As String = e.Message
Dim dr As DataRow
If msg.StartsWith("U#") Then \'表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
dr.Load() \'重新加载此行
End If
End If
ElseIf msg.StartsWith("A#") Then \'表示增加了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Dim drs As List(of DataRow) = DataTables(pts(1)).AppendLoad("[_Identify] = " & pts(2)) \'追载新增加的行.
If drs.Count > 0 Then
dr = drs(0)
End If
End If
ElseIf msg.StartsWith("D#") Then \'表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
DataTables(pts(1)).RemoveFor("[_Identify] = " & pts(2)) \'移除行
End If
End If
If _UserGroup = "销售经理" And dr.DataTable.Name = "审批测试" Then
If dr IsNot Nothing AndAlso dr.IsNull("销售审批人") = False AndAlso dr.IsNull("财务审批人") Then
PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)
End If
End If
我知道只有用户在线才能接收消息，但我在同一台电脑测试！！！
需要把PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)改为PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation,True)吗？
用户1修改数据需要审核时，用户2在登录时候不提示任何消息！
-- 发布时间：2017/11/4 17:21:00
--
和事件没有关系，你发送消息的时候，是不是选择了发离线消息
-- 发布时间：2017/11/4 17:55:00
--
我开了两个一样的项目 分别登录不同用户 可是还是不提示任何消息，只有OpenQQ的聊天窗口可以聊天 提示审批什么的都不好使！
-- 发布时间：2017/11/4 18:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通知服务端.rar |
甜老师，可以帮我改一下吗！实在是不知道哪里的问题了！谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:审批模块.rar |
-- 发布时间：2017/11/5 10:05:00
--
大佬们，求帮助！！！
-- 发布时间：2017/11/5 22:09:00
--
1、发送信息，必须把group加上
QQClient.Send("销售经理.孙销售","+@|" & r("_Identify") & "|" & r("车辆型号") & "|" & _UserName,True)
2、你打开系统后，你要登陆openQQ才可以发送信息的。