ElseIf e.DataCol.Name = "发票号码" Then

    If e.OldValue <> e.NewValue Then

        e.DataRow("发生时间") = Date.Now

        e.DataRow("经手人") = User.Name

    End If

    Dim r As Row = Tables("发票台账").Current

    If r("窗口属性") = "XK" Then

        Dim Filter As String =  "[发票号码] = \'" & e.NewValue & "\' and [窗口属性] = \'XK\' "

        e.DataRow("虚开收款金额") = DataTables("财务收支台账").Compute("Sum(收款金额)", Filter)

        e.DataRow("虚开付款金额") = DataTables("财务收支台账").Compute("Sum(已付虚开)", Filter)

        Dim dr As DataRow

        dr= DataTables("财务收支台账").Find("[支付虚开发票号码] = \'" & e.NewValue & "\'")

        If dr IsNot Nothing Then \'如果找到了同名的发票号码行,也就是dr不是Nothing

            e.DataRow("支付虚开时间") = dr("财务处理日期")

        End If

    Else

        e.DataRow("虚开收款金额") = Nothing

        e.DataRow("虚开付款金额") = Nothing

        e.DataRow("支付虚开时间") = Nothing

    End  If

End If