比如
Se lect e.DataCol.name
Case "帐户编号","本次付款","已付金额","订单付款","欠款支付","折后金额"
Dim dr As DataRow = DataTables("字典").find("[编号]= '"& e.datarow("帐户编号") & "'")
If dr IsNot Nothing Then
Dim n1 As Double = DataTables("采购入库").Compute("Sum(本次付款)","帐户编号 = '" & e.DataRow("帐户编号") & "'")
Dim n2 As Double = DataTables("采购入库").Compute("sum(订单付款)","帐户编号 = '" & e.DataRow("帐户编号") & "'")
Dim n3 As Double = DataTables("采购入库").Compute("sum(欠款支付)","帐户编号 = '" & e.DataRow("帐户编号") & "'")
Dim m1 As Double = DataTables("采购入库2").Compute("Sum(本次付款)","帐户编号 = '" & e.DataRow("帐户编号") & "'")
dr("减少金额") = n1+n2+n3 + m1
dr("帐户余额") = dr("增加金额")-dr("减少金额")
dr.Save
'If dr("帐户余额") < 0 Then
'MessageBox.show("帐户余额小于支付金额'" & -dr("帐户余额") & "',请核查!","提示!")
'End If
End If
End S elect
加好友 
发短信
Post By：2016/11/21 17:05:00 [显示全部帖子]
