[求助]关于自动求和的问题（新问题，狐爸请进） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于自动求和的问题（新问题，狐爸请进）

共有10580人关注过本帖树形打印复制链接主题：[求助]关于自动求和的问题（新问题，狐爸请进）

lsy

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/3/13 17:08:00 [只看该作者]

好奇怪，我早就发了简单的算法，大家还在讨论复杂的算法。

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编辑过]

狐狸爸爸

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/13 17:25:00 [只看该作者]

呵呵，百家争鸣也好啊，楼主根据需要选择

下一主题 >> << 上一主题

总数 32 上一页 1 2 3 4

主题：[求助]关于自动求和的问题（新问题，狐爸请进）