[求助]OpenQQ即时高效同步数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

OpenQQ即时高效同步数据

按照教程做完，可以实现同步数据，但是A表有很多子表,子表的数据怎样同时同步数据。谢谢

呃，每个表修改后都同步，就不存在你问的问题。

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
            Dim fl As String = "订单编号 = '"   & dr("订单编号") & "'"
            dr.Load() '重新加载此行
            LockBaseMainForm() '锁定主窗口
            DataTables("裁床单").StopRedraw '停止绘制订单明细
            DataTables("裁床单").RemoveFor(fl) '移除当前订单的订单明细
            DataTables("裁床单").Appendload(fl) '追载当前订单的订单明细
            DataTables("裁床单").ResumeRedraw '恢复绘制订单明细

            UnLockBaseMainForm() '解锁主窗口
        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

我刚才用这方法也可以子表即时同步了。

但是在同步其它表时，也在重新加载子表，但是其它表没有“裁床单”子表，我想写个判断，

要同步的表 = 生产进度表时执行代码1 否则执行代码2.请问这个判断怎样写。

[此贴子已经被作者于2016/2/29 13:34:21编辑过]

没必要这样做。

每一个表，如果新增或修改以后都同步，就没问题啊。你子表修改也会同步啊。

如果要判断表名，这样写

If pts(1) = "生产进度表" Then

Else

End If

Tables("生产进度表").Current.Save()

DataTables("制单数明细").Save ' 子表
DataTables("裁床单").Save   ‘ 子表

        '========以下代码为即时同步数据=========
        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
            If bd.Online Then
                QQClient.Send(bd.name, msg)
            End If
        Next
        '========以上代码为即时同步数据=========

父表的先定行和两个子表在一个按钮内保存按照您的思路请问代码要怎样改谢谢

修改了的所有表、所有数据行，都要合成信息发送给每一个人。

意思明白

我的意思是这里同时保存了3个表  以下代码在一个代码窗口写3次写不了

        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
            If bd.Online Then
                QQClient.Send(bd.name, msg)
            End If
        Next

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

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

Dim r As Row = Tables("生产进度表").Current
If r IsNot Nothing Then
    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
        If bd.Online Then
            QQClient.Send(bd.name, msg)
        End If
    Next
End If

主题：[求助]OpenQQ即时高效同步数据