- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关联表 数值如何同步 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169706)
-- 发布时间：2021/6/27 13:09:00
-- 关联表 数值如何同步
关联表A 结清=ture 关联表B 锁 = ture 反之亦然 数据时时同步！
此主题相关图片如下：qq图片20210627130606.png
-- 发布时间：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
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
-- 发布时间：2021/6/28 15:26:00
--
有点蓝 大大 代码哪里出问题啦！
此主题相关图片如下：微信图片_20210628152237.png
-- 发布时间：2021/6/28 15:31:00
--
datatables("明细单").replacefor("锁",true，“报销单号=\'" & e.datarow("报销单号") & "\'”)
-- 发布时间：2021/6/28 15:51:00
--
OK 谢谢 老大