主题：[求助]即时同步数据时，同步当前表只显示最后增加的记录（问题已解决）

在即时同步程序中，删除记录、修改记录、增加记录都可以实现即时同步

如果我最后一次操作是增加记录，无论是增加一条记录或多条记录，保存后，在别的客户端能够显示新增加的记录

但再点同步当前表或同步所有表，那么该表就会只显示最后增加的一条记录。

请老师帮我看看程序。

谢谢！

OpenQQ客户端RecievedMessage事件代码如下：

Dim dr1 As DataRow = DataTables("信息").AddNew
dr1("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr1("时间") = Date.Now()
dr1("信息") = e.Message

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

全局表事件BeforeSaveDataRow 代码如下：

If e.DataTable.name <> "信息" Then
    Dim r As DataRow = e.DataRow
    Dim p As String = IIF(r.RowState = DataRowState.Added, "A#", "U#")
   
    Dim msg As String = p & e.DataTable.Name & "#" & r("_Identify")
    For Each bd As QQBuddy In QQClient.Buddies
        If bd.Online Then
            QQClient.Send(bd.name, msg)
        End If
    Next
End If

AppendLoad要谨慎使用。

DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行

改成

Dim temp As String = DataTables(pts(1)).LoadFilter

DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行

DataTables(pts(1)).LoadFilter = temp

谢谢大红袍老师

问题已经解决

那两句话是什么意思，不太明白

哦 谢谢

老师 你好

还是那个程序    刚又碰到另外一个问题

我在修改某行之后，光标没有离开最后修改的一个单元格，保存的时候，这个单元格的内容修改情况别人看不到（并不是每回都这样），

可能会是什么问题

谢谢

保存前把光标移开，不然Datatable认为仍然是编辑状态

保存的时候，把焦点移开。

tables("表A").FinishEditing