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

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

接收不了信息这样测试

 

1、在接收事件第一行加入msgbox，看是否弹出；

 

2、如果1不弹出，说明发送不成功，那就看看有没有相互加为好友

 

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

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

 

此主题相关图片如下：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

这句代码，是否弹出内容？

 

msgbox(bd.Name & bd.Online)

 

 

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

 不弹出说明没有加为好友。

 

 去看你客户端和服务器端的登陆代码，弹出msgbox看一下

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

 

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

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

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

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

 如果连msgbox都没弹出，说明你还没有登陆到OpenQQ那里。

 

 我测试，客户端那里弹出OpenQQ的登陆窗口以后，登陆成功后，测试没问题的啊。

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

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

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

 你说的是哪里有问题？

 

 在接收事件第一行加入msgbox，是否弹出？

 

 这句代码，是否弹出？msgbox(bd.Name & bd.Online)