主题：[求助]及时同步数据

利用OPENQQ按照帮助做的及时同步数据，接收不到消息？之前用代码发送弹窗没问题，会是哪儿问题？

消息还是不弹出，但他们之间是好友，而且我设置的是默认全部为好友的。

 

此主题相关图片如下：01.png


此主题相关图片如下：02.png

 

代码完全按照帮助文档来做的：

保存按钮：

Dim r As Row = Tables("工程款管理").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
 r.Save()
Dim msg As String = p &  "工程款管理" & "#" & r("_Identify")
 For Each bd As QQBuddy In QQClient.Buddies
   msgbox(bd.Name & bd.Online)
    If bd.Online Then
       QQClient.Send(bd.name, msg)
    End If
 Next

删除按钮：

Dim r As Row = Tables("工程款管理").Current
 Dim msg As String = "D#" &  "工程款管理" & "#" & r("_Identify")
 r.Delete()
 Tables("工程款管理").Save()
 For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
     End If
 Next
客户端：ReceivedMessage

Dim msg As String = e.Message
 If msg.StartsWith("U#") Then '表示修改了某行
    Dim pts() As String = msg.Split("#")
     If pts.Length = 3 Then
        Dim dr As DataRow = 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
         DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
    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

不弹出，到找不出哪儿有问题。

示例文件已上传，大红袍老师帮我看看，数据库文件在项目文件里面，无密码。其他自定义登陆用户部门都是：总公司，账号：cd_hjt，cd_hk，密码都是：123，部门超级管理员，账号gly，密码888，我是在财务部管理的工程款管理测试的。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目管理8.01.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qq服务端.rar

登陆了啊，登陆用户部门都是：总公司，账号：cd_hjt（登陆OpenQQ姓名 黄俊涛），cd_hk（登陆OpenQQ姓名 胡科），密码都是：123。

弹窗，对法信息那些完全没问题，更新数据就是不提醒，找了一下午，都没找到问题。

登陆QQ在左边导航栏系统设置里面

大红袍老师，我用示例文件做的测试

1、用代码发送消息：QQClient.Send("生产部.林海","今天的任务完成了吗",True)

2、即时同步数据，完全按照帮助http://www.foxtable.com/webhelp/scr/3006.htm做出来的，消息发出了，都接收不到消息，是怎么回事啊？

但是用QQClient.SendChatMessage("生产部.林海","上午9点集合,地点人民广场!")这样的能发送，也能接收。

不知道是不是我没理解对啊，示例已上传。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

老师，上传的示例文件里面我写了发送规则的代码啊。

 

此主题相关图片如下：qq截图20160802154754.png

对的啊，我是那样的啊？老师可否远程协助帮忙看看啊QQ278533471。