看看SelectedIndexChanged的代码这样设置行不行：
Dim y As integer = e.Sender.Text
Dim dt1 As New Date(y,1,1)
Dim dt2 As New Date(y,12,31)
Tables("xxx").filter = “日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
加好友 
发短信
Post By：2013/7/2 14:20:00 [显示全部帖子]
