急!
老师:
流水账有多页或则表上加载了部分数据,怎样实现余额数据的承上启下(包括未加载数据)计算。
Select
Case
e.DataCol.Name
Case
"收入","支出"
Dim dr
As
DataRow
Dim drs As List(of DataRow)
dr =
e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"),
"[_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
以上的代码只能实现显示数据的第一行余额开始计算,如何包括以前的数据。