Case "流入金额","流出金额"
dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " and 日期 <= #" & e.DataRow("日期") & "#", "日期 desc,[_SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
e.DataRow("余额") = e.DataRow("流入金额") - e.DataRow("流出金额")
dr = e.DataRow
Else
e.DataRow("余额") = dr("余额") + e.DataRow("流入金额") - e.DataRow("流出金额")
End If
drs = e.DataTable.Select("日期 >= #" & e.DataRow("日期") & "#", "日期,[_SortKey]")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
drs(i)("余额") = drs(i-1)("余额") + drs(i)("流入金额") - drs(i)("流出金额")
Next
加好友 
发短信
Post By：2020/12/23 16:11:00 [显示全部帖子]
