高效流水账，一按重置按钮，就会把余额按从小到大，重新计算。如图，正确余额顺序" 514 ->554 ->558 "。重置后，" 514 ->558 ->554 "，明明558是后来才添加，反而余额计算在前。
此主题相关图片如下：300.jpg
此主题相关图片如下：301.jpg
此主题相关图片如下：311.gif
DataColChanged，代码是按高效流水账，将[_sortkey]改为[日期]
Select Case e.DataCol.Name
Case "科目","增","减"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[日期] < #" & mr("日期") & "# And [科目] = '" & mr("科目") & "'", "[日期] Desc")
If dr Is Nothing Then
mr("余额") = mr("增") - mr("减")
dr = mr
End If
drs = e.DataTable.Select("[日期] >= #" & dr("日期") & "# And [科目] = '" & dr("科目") & "'", "[日期]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("增") - drs(i)("减")
Next
If e.DataCol.Name = "科目" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[日期] < #" & mr("日期") & "# And [科目] = '" & e.OldValue & "'", "[日期] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[科目] = '" & e.OldValue & "'", "[日期]")
If dr IsNot Nothing Then
dr("余额") = dr("增") - dr("减")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[日期] >= #" & dr("日期") & "# And [科目] = '" & dr("科目") & "'", "[日期]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("增") - drs(i)("减")
Next
End If
End If
End Select
加好友 
发短信
Post By：2017/2/15 11:39:00 [只看该作者]
