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"), "[_SortKey]")
For i As
Integer = 1
To drs.Count - 1
drs(i)("个人余额") = drs(i-1)("个人余额") + drs(i)("收入数") - drs(i)("支出数")
Next
End
Select
是这样写的吗?