将下面的代码复制到命令窗口执行：

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个问题，一，工作量大，代码量大，增加系统体量，占用资源；二，多种统计，又重复操作，没有通用性