Foxtable(狐表)用户栏目专家坐堂 → 交叉统计的汇总行,在数据行上面改如何写呢


  共有9996人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/10 12:05:00 [显示全部帖子]

什么意思? 我不明白。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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() '生成汇总模式
 

 回到顶部