Foxtable(狐表)用户栏目专家坐堂 → [求助]日期筛选问题???


  共有1378人关注过本帖树形打印复制链接

主题:[求助]日期筛选问题???

帅哥哟,离线,有人找我吗?
老鼠
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3658 威望:0 精华:0 注册:2008/11/2 21:50:00
[求助]日期筛选问题???  发帖心情 Post By:2024/1/27 14:01:00 [只看该作者]

我有一数据表"请假记录"中有两个日期列:[起始日期]与[终止日期],我要按月筛选。比如我要筛选当月的数据行,我应该如何编写代码?
筛选数据行意思理解:起始日期为:2022年01月25日,终止日期为:2024年02月02日,我要筛选当月数据行时,该行数据就应该被筛选到;
起始日期为:2022年01月25日,终止日期为:2023年12月22日,我要筛选当月数据行时,该行数据就应该被剔除。
以下是我当前筛选代码,但没有用。

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m,Date.DaysInMonth(y,m))      '获取本月的最后一天

Dim Filter As String

Filter = "起始日期 >= #" & dt1 & "# And 终止日期 <= #" & dt2 & "#"

Tables("请假记录").Filter = Filter



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/27 14:13:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3658 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2024/1/27 20:22:00 [只看该作者]

感谢!
[此贴子已经被作者于2024/1/27 20:24:35编辑过]

 回到顶部