- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个已经按照这里的去做了之后，测试的话要怎么测呢，一台电脑能够测吗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110048)
-- 发布时间：2017/11/25 9:46:00
-- 这个已经按照这里的去做了之后，测试的话要怎么测呢，一台电脑能够测吗
此主题相关图片如下：sqr4u~k7dm@abfolehh3jk.jpg
-- 发布时间：2017/11/25 10:18:00
--
先把openqq这一章的帮助看一遍，了解openqq是什么一回事：http://www.foxtable.com/webhelp/scr/3053.htm
-- 发布时间：2017/11/25 10:25:00
--
已经开了服务端和客户端的了
-- 发布时间：2017/11/25 10:55:00
--
一台电脑同时开启3个项目测试，服务端ip输入127.0.0.1
开2个客户端，ip也是127.0.0.1，一个使用发送人的账户登录，一个使用接收人的帐号登录
-- 发布时间：2017/11/25 11:31:00
--
这个已经开了三个的了，也换用两个不同的账号登录了，可以收发信息，就是 当某个表数据发生变化等待审核时，提示审核消息这里不知道怎么弄，卡在这里了
-- 发布时间：2017/11/25 11:39:00
--
贴出你接收数据的代码
5、在OpenQQ客户端的MessageReceived事件中编写代码：
Dim pts() As String = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" \'如果是申请审核消息
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健、单号和制单人 合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" \'如果是审核通过消息
PopMessage("送货单" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("送货单").Find("单号 = \'" & pts(1) & "\'")
If dr IsNot Nothing Then
dr.Load
End If
End If
-- 发布时间：2017/11/25 11:46:00
--
我是直接从帮助文件拉去的。。。
此主题相关图片如下：v1p0idsyvdx978ik_s(x@r.jpg
-- 发布时间：2017/11/25 11:46:00
--
发错了
-- 发布时间：2017/11/25 11:47:00
--
是这个
此主题相关图片如下：v1p0idsyvdx978ik_s(x@r.jpg
-- 发布时间：2017/11/25 11:57:00
--
接收人是“经理”组的用户吗？
弹出相关数据看看：
msgbox(e.Message)
msgbox(user.group)