原因很简单,你有个个年份,但是你Sortkey有重复.所以你根据SorTKey计算,就会计算到1999年的值去.加入年份判断即可.
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 '如果没有找到上一行,说明本行就是第一行
Dim jc As Double '计算之前的结存
Dim y As Integer = e.DataRow("日期").Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
jc = DataTables("例子一").SQLCompute("Sum(收入) - Sum(支出)",Filter & " and [_SortKey] < " & e.DataRow("_SortKey"))
e.DataRow("余额") = e.DataRow("收入") - e.DataRow("支出") + jc
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
加好友 
发短信
Post By：2015/5/26 17:08:00 [显示全部帖子]
此主题相关图片如下：qq截图20150527112914.png
