标题：相同时段筛选代码求助

已知菜单里面有“相同时段筛选代码，同年、同月、同日等”，但它是系统命令，不知怎么样加上参数。

比如窗口里一个“按钮”想要在某一个表中筛选出“同月”的数据，代码要如何编写？谢谢回复。

窗口按钮干吗要筛选表中的同月呢，你还要指定表的某单元格呀，真麻烦；在窗口加个Textbox控件就行了，筛选等于其中的内容【“月份”】即可。

Dim v  As Date = Tables("XXX").Current("日期")
Dim y As Integer = v.Year
Dim m As Integer = v.Month
Dim FirstDay As Date = New Date(y, m, 1)
Dim LastDay As Date = New Date(y, m, Date.DaysInMonth(y,m))

Tables("XXX").Filter = "日期 >= "#" & FirstDate & "# And 日期 <=#" & LastDate & "#"

谢谢你的回复。

只希望指定某表的某列，不需指定单元格。如一复选框勾选后为自动筛选出同年的数据

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

点击浏览该文件:管理项目1.table

设置日期复选框的CheckedChanged事件代码

If e.Sender.Checked Then
    Dim v  As Date = Tables("表A").Current("日期")
    Dim y As Integer = v.Year
    Dim m As Integer = v.Month
    Dim FirstDay As Date = New Date(y, m, 1)
    Dim LastDay As Date = New Date(y, m, Date.DaysInMonth(y,m))
    Tables("表A").Filter = "日期 >= #" & FirstDay & "# And 日期 <=#" & LastDay & "#"
End If

以下是引用king在2010-10-8 8:46:00的发言：

谢谢你的回复。

 

只希望指定某表的某列，不需指定单元格。如一复选框勾选后为自动筛选出同年的数据

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

点击浏览该文件:管理项目1.table

用了狐爸的代码，笨笨地做了一个，你试一试啦··· 

1、请应用窗口

2、光标还必须点到某日期的单元格，不然不知道你要筛选那年那月呀

3、没有设置条件，需要自己加上

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

点击浏览该文件:筛选同年、同季、同月.rar

狐狸爸爸的代码好用，再请教同季、同周的代码？6楼兄弟的似乎复杂了点

这是我两年前学着写的代码，同季。

Dim a As Date = Tables("订单").Current("日期")
Dim b As Integer = (a.Month-1) \ 3
Dim c As New Date(a.Year,b*3+1,1)
Dim d As New Date(a.Year,b*3+3,Date.DaysInMonth(a.year,b*3+3))
Tables("订单").Filter = "[日期] >= #" & c & "# And 日期 <= # "& d &"#"

同周。

Dim a As Date = Tables("订单").Current("日期")
Dim b As Date
a = a.AddDays(-a.dayofweek+1)
b = a.AddDays(-a.dayofweek+7)
Tables("订单").Filter = "[日期] >= #" & a & "# And 日期 <= # "& b &"#"