高效流水账，代码怎么改？因为一年下来，几万行数据，用sum计算余额，担心会比较慢
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/3/3 10:07:00 [显示全部帖子]
