1
2
3
4
5
6
7
8
9
10
11
12
13
14 |
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
今天状态不好,有点混乱.帮助中的例子高效率的流水账设计.第八行代码 dr = e.DataRow 这一句不是很理解.测试过提示出错,代码看懂了,思路不懂. |
[此贴子已经被作者于2016/2/19 18:00:51编辑过]
加好友 
发短信
Post By：2016/2/19 18:00:00 [显示全部帖子]
