Foxtable(狐表)用户栏目专家坐堂 → 如何只显示本周及本月的数据


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

主题:如何只显示本周及本月的数据

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


加好友 发短信
等级:幼狐 帖子:114 积分:1108 威望:0 精华:0 注册:2012/12/4 18:28:00
如何只显示本周及本月的数据  发帖心情 Post By:2013/1/2 21:21:00 [只看该作者]

请教高手,

 

我有个表字段 开始日期,结束日期,

 

我想做个菜单按钮,

 

1.显示本周

2.显示本月

 

请问代码如何写啊?好像没有标准函数,谢谢各位


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


加好友 发短信
等级:四尾狐 帖子:977 积分:6800 威望:0 精华:1 注册:2012/8/7 22:03:00
  发帖心情 Post By:2013/1/2 21:29:00 [只看该作者]

MONTH(日期) = MONTH(DATE())

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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/1/2 23:02:00 [只看该作者]

加载本月数据
 Dim d As Date = Date.Today
Dim d1 As Date = New date(d.Year,d.Month,1)
Dim d2 As Date = d1.AddMonths(1)
Tables("日期").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"  

 回到顶部