主题：统计数据如何居中？

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

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

只能一个一个字段的设置。遍历所有列设置即可，也就三行代码