主题：重置问题

ElseIf e.DataCol.Name = "fa piao号码" Then

    If e.OldValue <> e.NewValue Then

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

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

    End If

    Dim r As Row = Tables("fa piao台账").Current

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

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

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

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

        Dim dr As DataRow

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

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

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

        End If

    Else

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

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

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

    End  If

End If