以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉统计的汇总行,在数据行上面改如何写呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16343)

--  作者:lsfdf
--  发布时间:2012/2/10 12:00:00
--  交叉统计的汇总行,在数据行上面改如何写呢

交叉统计的汇总行,在数据行上面改如何写呢

Dim g As New CrossTableBuilder("统计表1", DataTables("销售订单"))
g.HGroups.AddDef("订单日期", DateGroupEnum.Day, "日期")
g.HGroups.AddDef("客户名称")
g.VGroups.AddDef("销售区域")
g.Totals.AddDef("订单件数", "订单件数")
g.Totals.AddDef("发货金额", "发货金额")
g.VerticalTotal = True
g.Subtotal = True
g.Build()
MainTable = Tables("统计表1")


--  作者:狐狸爸爸
--  发布时间:2012/2/10 12:05:00
--  

什么意思? 我不明白。


--  作者:lsfdf
--  发布时间:2012/2/10 12:09:00
--  

交叉统计有个自动生成汇总模式,就是这个汇总的数据放在上面,

汇总:

小计1:

  数据

小计2:

  数据

 

这样的


--  作者:狐狸爸爸
--  发布时间:2012/2/10 12:36:00
--  
直接生成交叉统计表,再生成汇总模式:
 
Dim g As New CrossTableBuilder("统计表1", DataTables("销售订单"))
g.HGroups.AddDef("订单日期", DateGroupEnum.Day, "日期")
g.HGroups.AddDef("客户名称")
g.VGroups.AddDef("销售区域")
g.Totals.AddDef("订单件数", "订单件数")
g.Totals.AddDef("发货金额", "发货金额")
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")
 
Dim t As Table = Tables("统计表1")
Dim g As SubtotalGroup
g = New SubtotalGroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "客户名称" \'分组列为客户
g.TotalOn = "订单件数,发货金额" \'统计数量和金额列
g.Caption = "{0} 小计" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示。
g.TotalOn = "订单件数,发货金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.GroupAboveData = True
t.Subtotal() \'生成汇总模式