主题：统计

此主题相关图片如下：表a.png

表A中张三有两个数据

表A代码

If e.DataCol.Name = "金额" Then
    Dim pr As DataRow
    pr = DataTables("表E").Find("姓名 = '" & e.DataRow("姓名") & "'")
    If pr IsNot Nothing Then
        pr("表A金额")= pr("表A金额") + e.NewValue - e.OldValue
    End If
End If
 
此主题相关图片如下：表e.png

表E中应该是表A中张三两个数据之和
表E代码

If e.DataCol.Name = "姓名" Then
    e.DataRow("表A金额") = DataTables("表A").Compute("Sum(金额)","[姓名] = '" & e.NewValue & "'")