关联表数值如何同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表数值如何同步

共有4142人关注过本帖树形打印复制链接主题：关联表数值如何同步

31803263

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

加好友

发短信

等级：幼狐帖子：71 积分：809 威望：0 精华：0 注册：2017/8/18 13:09:00

关联表数值如何同步 发帖心情

Post By：2021/6/27 13:09:00 [只看该作者]

关联表A 结清=ture 关联表B 锁 = ture 反之亦然数据时时同步！

此主题相关图片如下：qq图片20210627130606.png

有点蓝

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

加好友

发短信

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

Post By：2021/6/27 20:55:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2649.htm

报销单，datacolchanged

If e.DataCol.name = "结清" andalso e.datarow("结清") = true Then

datatables("明细单").replace("锁",true，“报销单号='" & e.datarow("报销单号") & "'”)

end if

明细单，datacolchanged

If e.DataCol.name = "锁" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("报销单")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("明细单")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("锁") = True
                cnt = cnt + 1
            End If
        Next
        pr("结清") = (crs.Count = cnt)
    End If
End If