以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口表汇总模式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172252)

--  作者:实话实说
--  发布时间:2021/10/2 20:28:00
--  窗口表汇总模式
窗口表汇总模式无效
表1的代码
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号") 
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
b.Build \'生成统计表
Tables("销售订单_销售订单统计表").DataSource = DataTables("销售订单统计")

\'MainTable = Tables("销售订单统计") \'打开生成的统计表
表1

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
表2的代码
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号") 
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
b.Build \'生成统计表
MainTable = Tables("销售订单统计") \'打开生成的统计表
表2

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/10/4 21:28:00
--  
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号") 
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
Tables("销售订单_销售订单统计表").DataSource = b.BuildDataSource