Select Case e.DataCol.Name
Case "缴费号"
If e.NewValue > "" Then
If e.NewValue <> e.OldValue
Dim Filter1 As String = "[缴费号] = '" & e.NewValue & "'"
Dim pr1 As DataRow
pr1 = DataTables("费用应缴明细表").Find(Filter1 )
If pr1 IsNot Nothing
pr1("实缴金额") = DataTables("费用实缴明细表").Compute("sum(实缴金额)",Filter1)
End If
Dim Filter2 As String = "[缴费号] = '" & e.OldValue & "'"
Dim pr2 As DataRow
pr2 = DataTables("费用应缴明细表").Find(Filter2 )
If pr2 IsNot Nothing
pr2("实缴金额") = DataTables("费用实缴明细表").Compute("sum(实缴金额)",Filter2)
End If
End If
Else
加好友 
发短信
Post By：2019/7/16 20:51:00 [显示全部帖子]
