主题：及时统计的问题

DataRowDeleting事件

    Dim pr As DataRow
    pr = DataTables("合同主表").Find("档案编号 = '" & e.DataRow("档案编号") & "'")
    If pr IsNot Nothing Then
        If e.DataRow("支出类别") = "成本费用" Then
            pr("成本费用")= DataTables("合同付款").Compute("Sum(付款金额)","[档案编号] = '" & e.DataRow("档案编号") & "'and 支出类别 = '成本费用'") - e.datarow("付款金额")
        End If
    End If