好奇怪,我早就发了简单的算法,大家还在讨论复杂的算法。
Dim sum1,sum2,sum3,sum4 As Double
For i As Integer = 0 To CurrentTable.Rows.Count - 1
sum1 = sum1 + CurrentTable.Rows(i)("工行G02")
CurrentTable.Rows(i)("G02余额") = sum1
sum2 = sum2 + CurrentTable.Rows(i)("农行N01")
CurrentTable.Rows(i)("N01余额") = sum2
sum3 = sum3 + CurrentTable.Rows(i)("建行J01")
CurrentTable.Rows(i)("J01余额") = sum3
sum4 = sum4 + CurrentTable.Rows(i)("信用社X01")
CurrentTable.Rows(i)("X01余额") = sum4
Next
[此贴子已经被作者于2013-3-13 17:25:09编辑过]