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

  哦哦 谢谢  我试试哇

筛选指定月份的数据

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") \'打开生成的统计表　

 

你做个简单的例子发上来吧，输入一些测试数据，写好代码，再说明问题