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

给各个客户端发送【刷新某表】的信息，可以合成字符，如 "刷新|表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

试试这样修改代码

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