父表:DataColChanged
If e.DataCol.Name = "报价单号" Then
e.DataRow("BOM原材未税总成本") = DataTables("报价汇总表_Table2").Compute("Sum(材料单价)", "[报价单号] = '" & e.NewValue & "'")
End If
子表:DataColChanged
If e.DataCol.Name = "材料单价" Then
Dim pr As DataRow
pr = DataTables("报价汇总表_明细").Find("报价单号 = '" & e.DataRow("报价单号") & "'")
If pr IsNot Nothing Then
pr("原材未税总成本") = pr("原材未税总成本") + e.NewValue - e.OldValue
End If
End If
删除子表行,父表汇总数据无法更新