- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 问个分组统计的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64981)
-- 发布时间：2015/3/6 14:26:00
-- 问个分组统计的问题
按帮助里讲的：有多个分组可以设置级别：
此主题相关图片如下：qq截图20150306142239.jpg
我现在想按工程名称分组，为何达不到效果 ：
此主题相关图片如下：qq截图20150306142452.jpg
代码：
Dim g As New GroupTableBuilder("temp",DataTables("表A"))
g.Caption = "统计表 "
g.Groups.AddDef("工程名称")
g.Groups.AddDef("物料类别")
g.Groups.AddDef("类别名称")
g.Groups.AddDef("物料编号")
g.Groups.Adddef("物料名称")
g.Groups.Adddef("型号")
g.Groups.Adddef("计量单位")
g.Totals.Adddef("金额")
g.Subtotal = True
g.SubtotalLevel =1
g.Build
MainTable=Tables("temp")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
-- 发布时间：2015/3/6 14:29:00
--
不要直接用统计。生成表以后，再设置一次汇总模式即可。
-- 发布时间：2015/3/6 14:33:00
--
Dim g As New GroupTableBuilder("temp",DataTables("表A"))
g.Caption = "统计表 "
g.Groups.AddDef("工程名称")
g.Groups.AddDef("物料类别")
g.Groups.AddDef("类别名称")
g.Groups.AddDef("物料编号")
g.Groups.Adddef("物料名称")
g.Groups.Adddef("型号")
g.Groups.Adddef("计量单位")
g.Totals.Adddef("金额")
g.Build
MainTable=Tables("temp")
Dim t As Table = Tables("temp")
Dim gg As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
gg = New Subtotalgroup
gg.Aggregate = AggregateEnum.Sum
gg.GroupOn = "工程名称"
gg.TotalOn = "金额"
gg.Caption = "{0} 小计"
t.SubtotalGroups.Add(gg)
t.Subtotal()
-- 发布时间：2015/3/6 15:21:00
--
谢谢。。搞定 了