将下面的代码复制到命令窗口执行：
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))b.HGroups.AddDef("客户") '添加客户列用于水平分组b.VGroups.AddDef("产品") '添加产品列用于垂直分组b.Totals.AddDef("数量") '添加数量列用于统计b.Build '生成统计表Maintable = Tables("统计表1") '打开生成的统计表
统计结果：
加好友 
发短信
Post By：2012/6/26 8:27:00 [显示全部帖子]
