主题：如何设置用户输入日期的分组统计窗口

如何设置用户输入日期的分组统计窗口

如要分组统计“订单表”中某一时间的“数量”和“金额”，代码该如何写，主要是怎样将窗口中输入日期的值邦定到分组统计数据日期的代码里面，请老师指教，谢谢。

此主题相关图片如下：qq图片20140810225203.jpg


此主题相关图片如下：qq图片20140810225218.jpg

Dim b As New GroupTableBuilder("统计表1",DataTables("店面收款"))
b.Filter = "[月份] >= #4/04/2014# And [月份]<= #7/31/2014#"
b.Groups.AddDef("接单人员")'添加客户列用于分组
'添加日期列用于分组,按季度分组,并用"季度"代替原名称
'添加客户列用于统计,其实对于Count类型的统计,可用任何列作为统计列.
b.Totals.AddDef("接单人员",AggregateEnum.Count,"总收")
b.Totals.AddDef("总收",) '添加数量列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

 

如象上面代码中，如何将b.Filter = "[月份] >= #4/04/2014# And [月份]<= #7/31/2014#"这段代码转换成从窗口中输入日期的值。

谢谢您的帮助，解决了。你太伟大了。

老师，上次你教的打开自己设计菜单后隐藏所有表，但有时要用时我想通过一个按钮按一下就打开所有隐藏的表，代码应怎样写。

谢谢指教。

老师，请指教，如何将生成的图表保存到想保存的位置，即点保存按钮时弹出对话框，然后选择保存位置。

上述按钮代码如何写。

谢谢老师。