主题：图表的筛选问题

能日期筛选，就能按年筛选，按年筛选，就是筛选这年的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 & "#"

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

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

一定要选的话，在窗口的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