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

1楼

lin723 发表于：2008/12/14 19:00:00

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

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

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") '打开生成的统计表　

统计结果：

2楼

狐狸爸爸 发表于：2008/12/15 8:33:00

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

3楼

lin723 发表于：2008/12/15 16:49:00

以下是引用狐狸爸爸在2008-12-15 8:33:00的发言：

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

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

4楼

狐狸爸爸 发表于：2008/12/15 17:04:00

呵呵，目前没空。
有空的时候，我在帮助加一个例子吧。

共4 条记录, 每页显示 10 条, 页签: [1]