主题：[求助]分组统计累计值出错

此主题相关图片如下：1.png


此主题相关图片如下：2.png
统计累计值出错，不知道怎么修改，望大侠帮忙

例子发上来看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项.rar

例子以上传麻烦版主帮忙看看

Dim g As New GroupTableBuilder("统计表1", DataTables("收付款登记表"))
g.Groups.AddDef("支付日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("支付日期", "月")
g.Groups.AddDef("支付日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("工程可支付金额")
g.Totals.AddDef("支付人工费")
g.Totals.AddDef("支付材料费")
g.Totals.AddDef("支付机械费")
g.Totals.AddDef("支付间接费")
g.Totals.AddDef("支付合计")
g.Totals.AddDef("本期余额")
g.Totals.AddDef("本期余额","累计")
g.Build()
Dim t As Table = Tables("统计表1")
Dim sum As Double = 0
For Each r As Row In t.Rows
    r("累计") += sum
    sum = r("累计")
Next
MainTable = Tables("统计表1")