将下面的代码复制到命令窗口执行:
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于水平分组,按年分组
b.HGroups.AddDef("日期","月") '添加日期列用于水平分组,按月分组
b.VGroups.AddDef("客户","客户_{0}") '添加客户列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表
统计结果:
上面统计后,数据都向右,如何让数据居中?由于一个一个字段的设置居中,好象也可以,产生2个问题,一,工作量大,代码量大,增加系统体量,占用资源;二,多种统计,又重复操作,没有通用性