- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 汇总统计 指定显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17041)
-- 发布时间：2012/3/1 20:22:00
-- 汇总统计 指定显示
版主，你好 我想进行分类汇总，点击 “汇总统计”后，将结果显示至 窗口的那张表里面
分类汇总代码为：
Dim g As New GroupTableBuilder("统计表4", DataTables("表A"))
g.Groups.AddDef("班级")
g.Totals.AddDef("数学")
g.Totals.AddDef("语文")
g.VerticalTotal = True
g.SubTotal = True
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目109.table |
g.Build()
MainTable = Tables("统计表4")
此主题相关图片如下：新建位图图像111.bmp
烦请协助解决，谢谢
-- 发布时间：2012/3/1 21:21:00
--
Dim g As New GroupTableBuilder("统计表4", DataTables("表A"))
g.Groups.AddDef("班级")
g.Totals.AddDef("数学")
g.Totals.AddDef("语文")
g.SubTotal = True
Tables("窗口1_table1").DataSource = g.BuildDataSource
-- 发布时间：2012/3/1 21:40:00
--
你好，为什么最下面一行 没有汇总这一行呢 如原帖“截图” 如果想让他有汇总，该怎么办呢
-- 发布时间：2012/3/2 0:21:00
--
那就自己加上代码
Dim g1 As New GroupTableBuilder("统计表4", DataTables("表A"))
g1.Groups.AddDef("班级")
g1.Totals.AddDef("数学")
g1.Totals.AddDef("语文")
Tables("窗口1_table1").DataSource = g1.BuildDataSource
Dim t As Table = Tables("窗口1_table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数学,语文"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
-- 发布时间：2012/3/2 17:11:00
--
问题解决，谢谢