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

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即时高效同步数据