示例一,统计同一客户订购不同产品的数量
将下面的代码复制到命令窗口执行:
Dim b As New
CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品") '添加产品列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表
统计结果:
![图片点击可在新窗口打开查看](mk:@MSITStore:D:\foxtable\开发版\foxtable.chm::/0337.gif)
[此贴子已经被作者于2012-6-26 8:26:58编辑过]