主题：关于即时同步的问题

关于利用OPENQQ即时同步数据的问题，以下范例中的代码只能做到点一行保存一行同步一行的效果，是否可以做到点一下就将所有有变更的行全部保存并同步的效果？
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

给各个客户端发送【刷新某表】的信息，可以合成字符，如 "刷新|表A"

 

客户端接收到后，拆分数据，如果是【刷新】开头的，就执行代码 DataTables("表A").Load

请版主帮帮忙，谢谢

 

比如代码

 

Dim str As String = "刷新|" & currentTable.DataTable.name

 

然后发送str过去

 

接收后，拆分str，如

 

Dim ary() = e.message.split("|")

DataTables(ary(1)).Load

版主，这样写代码的话发现会影响其他客户端的操作，比如其他客户端在当前表筛选了部分数据，我这点完保存，那边筛选的数据就没了，跳回了未筛选前的状态。以前即时同步的时候是每行单独同步。是否可以让表在刷新的同时又不影响其他客户端操作的？如果不行的话是否可以修改帮助文件中即时同步的代码，做成一个循环，点一下就把所有新增修改或删除过的行依次保存一遍？

那你就循环每一行处理，如

 

For Each r As Row In Tables("表A").rows
    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
Next

选中行，这样处理

 

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

 

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