以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何用手工编码统计改写下例，谢谢！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1390)
--  作者：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") \'打开生成的统计表　

统计结果：
--  作者：狐狸爸爸
--  发布时间：2008/12/15 8:33:00
--  

自己新建一个统计表，输入年月和客户，利用DataColChanged来统计。
如果刚学的话，这个似乎有点深了，还是用交叉统计表生成器好。
--  作者：lin723
--  发布时间：2008/12/15 16:49:00
--  
以下是引用狐狸爸爸在2008-12-15 8:33:00的发言：

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

还是深点好，毕竟很自由，我不喜欢DataColChanged及现成绩统计生成器，能否举一个详例（一气呵成的），谢谢！
--  作者：狐狸爸爸
--  发布时间：2008/12/15 17:04:00
--  
呵呵，目前没空。
有空的时候，我在帮助加一个例子吧。