按选择的日期范围筛选，然后生成统计表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按选择的日期范围筛选，然后生成统计表，代码不会写，帮帮忙

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

这一行如何修改？'b.Filter = "[日期] >= #12/01/1998# And [日期]<= #04/30/1999#"

下载信息 [文件大小：下载次数： ]
点击浏览该文件:按日期筛选窗口筛选.foxdb

b.Filter = "[客户] = 'CS01'" '仅统计客户为CS01的记录

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

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

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

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

b.Totals.AddDef("金额") '添加数量列用于统计

b.HorizontalTotal = True '水平汇总

b.Build '生成统计表

MainTable = Tables("统计表1")

主题：按选择的日期范围筛选，然后生成统计表