表中的编码如下：
Select Case e.DataCol.Name
Case "借方合计","贷方合计"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(借方合计)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(贷方合计)","[_SortKey] <= " & dr("_SortKey"))
dr("余额") = Val1 - Val2
Next
End Select
Dim ar As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "我公司汇款","底价款收款","保证金收款"
ar("借方合计") = ar("我公司汇款") + ar("底价款收款")+ ar("保证金收款")
Case "向我公司汇款","底价款返款","保证金返款"
ar("贷方合计") = ar("向我公司汇款") + ar("底价款返款")+ ar("保证金返款")
End Select
加好友 
发短信
Post By：2016/12/9 13:29:00 [只看该作者]
