主题：利用openqq同步数据,如果是两个表怎么办?

1、在编辑窗口加一个保存按钮，按钮代码设置为：

Dim r As Row = Tables("表A").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "表A" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

这段代码用于合成通知信息发送给好友，例如"U#表A#8"表A主键为8的行发生了修改，"A#表A#10"表示表A新增了1行，新增行的主键为10。
你可以任意定义这种格式的通知。

2、再增加一个删除按钮，按钮代码设置为：

Dim r As Row = Tables("表A").Current
Dim msg As String = "D#" & "表A" & "#" & r("_Identify")
r.Delete()
Tables("表A").Save()
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

这段代码用于删除行后合成通知信息发送给好友，例如"D#表A#8"表A主键为8的行被删除了。

3、在QQClient的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

这样，多用户环境下，任何一个客户端做的修改、增加，删除，保存后都会立即体现在其他客户端上。