以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  通过组合框筛选。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20985)
--  作者：lfxxdt
--  发布时间：2012/6/26 13:30:00
--  通过组合框筛选。
在组合框中编写了1-12个月的选项，点击某一个月后，能够筛选这个月的数据，请问这个事件的语句如何编写。
--  作者：狐狸爸爸
--  发布时间：2012/6/26 13:58:00
--  

Dim m  As integer = e.Form.Controls("ComboBox1").Value
Dim y As  integer= Date.Today.Year
Dim FirstDay As Date = New Date(y,m,1) \'第一天
Dim LastDay As Date = New Date(y,m,Date.DaysInMonth(y,m)) \'最后一天

Tables("XXX").Filter = "日期 >=#" & FirstDay & "# And 日期<=#" & LastDay & "#"

[此贴子已经被作者于2012-6-26 13:58:10编辑过]