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

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

1、设置一个窗口，加入日期控件，加入一个按钮；

 

2、编写按钮代码，如果按钮代码不会写，你就上传你做的例子。

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

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


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

 做个例子发上来，或者参考

 

http://www.foxtable.com/help/topics/2670.htm

 

http://www.foxtable.com/help/topics/1058.htm

 

 

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#"这段代码转换成从窗口中输入日期的值。

Dim sDate As Date = e.Form.Controls("DateTimePicker1").Value

Dim eDate As Date = e.Form.Controls("DateTimePicker2").Value

 

b.Filter = "[月份] >= #" & sDate & "# And [月份] <= #" & eDate & "#"

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

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

 

For Each t As Table In Tables

    t.Visible = true

Next

谢谢指教。