Foxtable(狐表)用户栏目专家坐堂 → 通过组合框筛选。


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

主题:通过组合框筛选。

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


加好友 发短信
等级:二尾狐 帖子:513 积分:3935 威望:0 精华:0 注册:2012/6/26 13:23:00
通过组合框筛选。  发帖心情 Post By:2012/6/26 13:30:00 [只看该作者]

在组合框中编写了1-12个月的选项,点击某一个月后,能够筛选这个月的数据,请问这个事件的语句如何编写。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部