扣款表中
If e.DataCol.Name="扣款金额" Then
dim dr as datarow = datatables("档案表").Find("卡号='" & e.datarow("卡号") & "'")
dim dr2 as datarow = datatables("收款表").Find("卡号='" & e.datarow("卡号") & "'")
if dr isnot nothing then
dr("当前余额")=dr("建档余额 ")+dr2("收款金额")-e.datarow("扣款金额")
end if
end if
收款表中
If e.DataCol.Name="收款金额" Then
dim dr as datarow = datatables("档案表").Find("卡号='" & e.datarow("卡号") & "'")
dim dr2 as datarow = datatables("扣款表").Find("卡号='" & e.datarow("卡号") & "'")
if dr isnot nothing then
dr("当前余额")=dr("建档余额 ")+e.datarow("收款金额")-dr2("扣款金额")
end if
end if
档案表中
If e.DataCol.Name="建档余额" And e.datarow("状态")="正常" Then
dim dr as datarow = datatables("收款表").Find("卡号='" & e.datarow("卡号") & "'")
dim dr2 as datarow = datatables("扣款表").Find("卡号='" & e.datarow("卡号") & "'")
if dr isnot nothing then
e.datarow("当前余额")=e.datarow("建档余额 ")+dr("收款金额")-dr2("扣款金额")
end if
end if
加好友 
发短信
Post By：2013/7/22 14:19:00 [只看该作者]
