[求助]两个表引用同一字段相互更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

要更新什么内容？

【商承支付表格：通过“汇piao号码”引用了商承回款表格的“汇piao金额”】商承回款表格的“汇piao金额”填入商承支付表格哪一列？

【商承回款表格：通过“汇piao号码”引用统计了商承支付表格的“支付金额”】商承支付表格的“支付金额”填入商承回款表格哪一列？

这些代码没有任何用处。截图并使用文字说明，到底要更新哪一列数据？

比如商承回款的汇piao金额从20000改为50，那么商承支付对应编号的汇piao金额20000也改为50？反之亦然？这个意思？！

合同表的DataColChanged：

Select Case e.DataCol.Name

Case "合同金额"

DataTables("付款表").replacefor("合同金额",e.newvalue,"编号 = '" & e.DataRow("编号") & "'")

Case "编号"

if e.oldvalue > "" then

DataTables("付款表").replacefor("合同金额",e.DataRow("合同金额"),"编号 = '" & e.oldvalue & "'")

end if

if e.newvalue > "" then

DataTables("付款表").replacefor("合同金额",e.DataRow("合同金额"),"编号 = '" & e.newvalue & "'")

end if

e.datarow("累计支付") = DataTables("付款表").compute("sum(付款金额)","编号 = '" & e.newvalue & "'")

End Select

付款表的DataColChanged：

Select Case e.DataCol.Name

Case "付款金额"

Dim pr As DataRow

pr = DataTables("合同表").Find("编号 = '" & e.DataRow("编号") & "'")

If pr IsNot Nothing Then

DataTables("合同表").DataCols("编号").RaiseDataColChanged(pr)

End If

Case "编号"

Dim pr1 As DataRow

pr1 = DataTables("合同表").Find("编号 = '" & e.oldvalue & "'")

If pr1 IsNot Nothing Then

DataTables("合同表").DataCols("编号").RaiseDataColChanged(pr1)

End If

pr1 = DataTables("合同表").Find("编号 = '" & e.newvalue & "'")

If pr1 IsNot Nothing Then

DataTables("合同表").DataCols("编号").RaiseDataColChanged(pr1)

End If

End Select

合同表加代码查询一下"付款表"有没有对应编号的数据，没有就新增一行

以下是引用jxb127705在2024/8/14 18:40:00的发言：
图片点击可在新窗口打开查看

删除需要另外到DataRowDeleting事件处理

主题：[求助]两个表引用同一字段相互更新