在做图表时 遇到个筛选的问题

我的原表没有“年”这个列，只有“日期”列，想在窗体上做个年份的筛选，并能根据筛选的值，让图表只显示选定年份的数据

不会写代码，望高手赐教！

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试用.table

能日期筛选，就能按年筛选，按年筛选，就是筛选这年的1月1日到12月31日的行，例如2008年的：

Dim dt1 As  Date = New Date(2008,1,1)

Dim dt2 As Date = New Date(2008,12,31)

....Filter = "日期 >= #" dt1 & "# And 日期 <= #" & dt2 & "#"

感谢狐爸的提示，我在组合框内容变更事件里写了下面的代码

=======================================================

Dim nf As WinForm.ComboBox = e.Form.Controls("ComboBox1")
nf.ComboList = DataTables("统计表1").GetComboListString("年")            \'定义nf（年份）这个组合框，内容为统计表1的“年”列的值

Tables("表B").Filter = ("日期 >= #1/1/" & nf.Text & "# and 日期 <= #12/31/" & nf.Text & "#")     \'利用组合框的值来对表B做筛选 筛选出当年的数据

Dim g As New CrossTableBuilder("统计表1", DataTables("表B"))              ’下面是复制的系统自动生成的交叉汇总的代码
g.HGroups.AddDef("日期", DateGroupEnum.Year, "年")
g.VGroups.AddDef("商品")
g.Totals.AddDef("销量", "销量")
g.Build()

=========================================================

当我点选组合框的值时，陷入死循环，我估计是由于组合框的值来自于汇总的临时表，而点选组合框的值对源表B做筛选，导致筛选、汇总之间陷入死循环

不知狐爸有啥好建议没有？

另外增加一个统计按钮，单击才开始进行统计。

至于年份，用数值框直接输入，默认值设置为当年，用上下微调按钮来调整。

一定要选的话，在窗口的AfterLoad事件加入代码：

Dim min As Date = DataTables("表B").Compute("Min(日期)")
Dim max As Date = DataTables("表B").Compute("Max(日期)")
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
For y As Integer = min.Year To max.Year
    cmb.items.add(y)
Next

怎么增加？不会啊！

运行的效果是：点选一次组合框，多出来一次年份，越点越多