主题：[求助]统计

If e.DataCol.Name = "客户" Then
    e.DataRow("价税合计") = DataTables("出库明细").Compute("Sum(价税合计)","[客户] = '" & e.NewValue & "'")
End If

下面的代码是在出库明细表中

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

上面的代码不能统计