同步更新关联列的处理逻辑是什么？

a. 对子表关联行，直接修改关联列的数据？

b. 新增复制关联行，关联列为修改后数据，再删除原关联行？

因为有如下父表A  关联子表B，勾选了同步更新关联列，同步删除关联行

表A                                           表B

关联列  第二列  第三列                  关联列 

test1                                        test1   

                                               test1 

表B datacolchanged设置：

Select Case e.DataCol.Name
    Case "关联列"
   Dim dr As DataRow
dr = DataTables("表A").Find("关联列 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        dr("第二列") = "执行了新值代码"
    End If

Dim pr As DataRow
pr = DataTables("表A").Find("关联列 = \'" & e.OldValue & "\'")
    If pr IsNot Nothing Then
        pr("第三列") = "执行了旧值代码"
    End If

End Select

发现修改表A关联列内容为test2后，如下：表B关联列是能够同步更新，但是为什么没有执行新值代码？

表A                                           表B

关联列  第二列  第三列                  关联列 

test2              执行了旧值代码      test2   

                                               test2 

 呃，同一个时间，一行，怎么可能脚踏两条船？

dr = DataTables("表A").Find("关联列 = \'" & e.NewValue & "\'")

pr = DataTables("表A").Find("关联列 = \'" & e.OldValue & "\'")

实际的数据是

表A

关联列  费用合计          

pc001  300

pc002  150

表B

关联列  费用种类  费用金额

pc001  保费       100                

pc001  运费       200

pc002  保费       100             

pc002  税费       50           ------> pc001 税费 50

考虑到有可能表B的关联列pc002修改为pc001，需重新统计表A的“费用合计”，所以在表B datacolchanged 设置了：

Select Case e.DataCol.Name
    Case "关联列" \'子表关键字变化,触发父表新旧2个关键字汇总内容更新
        If e.OldValue <> e.NewValue Then
            Dim pr,prold As DataRow
            pr = DataTables("表A").Find("[关联列] = \'" & e.DataRow("关联列") & "\'")
            prold = DataTables("表A").Find("[关联列] = \'" & e.OldValue & "\'")
            If pr IsNot Nothing Then
                pr("费用合计") = DataTables("表B").Compute("Sum([费用金额])","[关联列] = \'" & e.DataRow("关联列") & "\'")
             messagebox.show("新值代码执行")

End If
           
            If prold IsNot Nothing Then

           prold("费用合计") = DataTables("表B").Compute("Sum([费用金额])","[关联列] = \'" & e.OldValue & "\'")
           messagebox.show("旧值代码执行")

   End If

   End If

此代码对于上面修改子表数据的情况，确实起到作用了，

如果不用关联设置里的“同步更新关联列”内容，改用写代码的方式实现关联列更新，在表A的datacolchanged中设置了

Select Case e.DataCol.Name

    Case "关联列"

  Dim Filter As String = "[关联列] = \'" & e.OldValue  & "\'"
DataTables("表B").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)    

end select

发现就没问题，能够按预想执行表B的关联列的新旧两个值汇总的代码。 这里我主要是希望执行新值汇总的代码。    

大家如果“关联”里设置同步更新关联列，都是怎样设计父表汇总的呀？

看9楼，也可以用代码统计。

你的思路错了，你应该把统计代码写在父表才对的。