主题：OPenQQ问题

加入代码

msgbox(e.Message)

Dim ptsl() As String  = e.Message.Split("|")

msgbox(ptsl.length)

1、打开openqq聊天窗口，看能否正常给好友发送信息？

2、msgbox(dr("机构名称") & "." & dr("姓名")) 看弹出什么

不在线时，那该用户登录以后，能否得到提示？如果能，就是正常的。

如果不能，说明你服务器那里配置有问题，没有开启对应端口 http://www.foxtable.com/webhelp/scr/3247.htm

看看这里的设置

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714467&ID=104284&skin=1

能弹出msgbox说明没问题。不能执行你对应代码，说明不满足if判断等

改成

If ptsl.Length = 4 AndAlso ptsl(0) = "+@"  '如果是申请审核消息
    fhs.Add(ptsl(1) & "|" & ptsl(2) & "|" & ptsl(3)) 

如果 SystemIdle 报错，试试加入代码测试，看状态栏弹出什么

StatusBar.Message1 = pts.length

看10楼、12楼。

你合成的数据是什么？你要明确。你合成什么数据发过去，添加什么数据进去，你也要明确。

1、是否报错？报什么错？

2、执行 StatusBar.Message1 = fhs(0) 显示什么？

3、是不是你逻辑有问题？没看懂你逻辑，请做实例说明你要做什么。

msgbox(nm) 看弹出的值是否正确

如果提示不存在对应的表，说明你这个确实不存在

或者试试改成 Tables(nm).DataTable.Save()

判断，加载

http://www.foxtable.com/webhelp/scr/2753.htm