Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何用手工编码统计改写下例,谢谢!

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]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.