[求助]多用户协同工作的情况下，想要同步关联子表数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多用户协同工作的情况下，想要同步关联子表数据

共有5338人关注过本帖树形打印复制链接主题：[求助]多用户协同工作的情况下，想要同步关联子表数据

igewcw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：98 积分：1188 威望：0 精华：0 注册：2015/2/4 18:24:00

[求助]多用户协同工作的情况下，想要同步关联子表数据 发帖心情

Post By：2023/1/4 9:15:00 [只看该作者]

请教各位老师，在多用户协同工作的情况下，想要数据同步，按照帮助里的【openQQ及时同步】设置了如下代码，并实现了及时同步，但是确发现这个代码不能实现关联子表数据更新的同步，如：成品信息表.BOM清单

请问如何实现关联子表的数据及时同步呢？

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/4 9:25:00 [只看该作者]

方法1、在同步的加载的地方加载子表数据，类似：http://www.foxtable.com/webhelp/topics/2228.htm

2、要发送的消息的规则是自己定义的，想要做什么可以自己定义更详细的规则，比如

Dim msg As String = p & "成品信息表" & "#" & r("_Identify") & “#BOM清单”

然后在接收的时候

ElseIf msg.StartsWith("A#") Then '表示增加了行
    Dim pts() As String = msg.Split("#")
    If pts.Length >= 3 Then
dim drs = DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.

If pts.Length =4 andalso drs.count > 0 Then

DataTables(pts(3)).Loadfilter = "关联列='" & drs(0)("关联列") & "'"

DataTables(pts(3)).Load
End If

End If

下一主题 >> << 上一主题

主题：[求助]多用户协同工作的情况下，想要同步关联子表数据