Select Case e.DataCol.Name
Case "收入数","支出数"
Dim dr As DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " And 记账人 = '" & e.DataRow("记账人") & "'", "[_SortKey] Desc")
If dr Is Nothing Then
e.DataRow("个人余额") = e.DataRow("收入数") - e.DataRow("支出数")
dr = e.DataRow
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And 记账人 = '" & e.DataRow("记账人") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("个人余额") = drs(i-1)("个人余额") + drs(i)("收入数") - drs(i)("支出数")
Next
End Select
[此贴子已经被作者于2014-9-4 17:00:49编辑过]