主题：交叉统计如何设置成会计格式，就是使用千分位和保留两位小数

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))

b.HGroups.AddDef("客户") '添加客户列用于水平分组

b.VGroups.AddDef("产品") '添加产品列用于垂直分组

b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("金额") '添加数量列用于统计
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表

统计结果：