主题：如何用手工编码统计改写下例，谢谢！

示例六，按年月统计每个客户的订购数量　

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

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

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

b.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组，按年分组
b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组，按月分组

b.Totals.AddDef("数量") '添加数量列用于统计
b.OrderByTotal = True '同中类型的统计数据排列在一起

b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表　

统计结果：

自己新建一个统计表，输入年月和客户，利用DataColChanged来统计。
如果刚学的话，这个似乎有点深了，还是用交叉统计表生成器好。

还是深点好，毕竟很自由，我不喜欢DataColChanged及现成绩统计生成器，能否举一个详例（一气呵成的），谢谢！