主题：怎么才能筛选时间生成图表呢

怎么样才能做出一个输入年份和月份后生成的图表呢，让图表可以显示出自己随意想要的某年某月时间段的数据

此主题相关图片如下：捕获.png

  哦哦 谢谢  我试试哇

筛选指定月份的数据

 

Dim y As Integer = e.form.Controls("年份输入框").Value '指定年份
Dim m As Integer = e.form.Controls("月份输入框").Value '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Tables("表名").Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

大侠我照那个例子筛选好了，但是再生成图表就不会了，我做了一个统计表放在筛选程序的下面得到的还是全年的数据，生成的图表还是全年的图表，大侠怎么做呢！大侠救救我吧！！！

根据合成的条件得到统计表，有了统计表，怎么生成图表， 你应该会了吧？

 

Dim y As Integer = e.form.Controls("年份输入框").Value '指定年份
Dim m As Integer = e.form.Controls("月份输入框").Value '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组，按年分组
b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组，按月分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Filter =  = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表　

 

我筛选出来再做一个统计表 然后绑定统计表做图表 生成的还是全部的数据的 这是为什么呢

这个程序就是删选条件后生成的统计表吗？

我也遇到了和你同样的问题，我是先根据筛选条件生成统计表，再根据统计表生成图表，但是代码效率很低，屏幕总是闪，不知的有没有更高明的办法，用代码直接生成图表，略去统计表的环节