以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]分组统计累计值出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68691)

--  作者：twef --  发布时间：2015/5/22 16:09:00 --  [求助]分组统计累计值出错 此主题相关图片如下：1.png 此主题相关图片如下：2.png 统计累计值出错，不知道怎么修改，望大侠帮忙

--  作者：Bin --  发布时间：2015/5/22 16:13:00 --   例子发上来看看

--  作者：twef --  发布时间：2015/5/22 16:55:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项.rar 例子以上传麻烦版主帮忙看看

--  作者：大红袍 --  发布时间：2015/5/22 17:15:00 --   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")