自动筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动筛选问题

共有1855人关注过本帖树形打印复制链接主题：自动筛选问题

jick0526

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

自动筛选问题 发帖心情

Post By：2019/5/2 22:02:00 [只看该作者]

老师，我有一列字符列，如下图，我想在窗口做个按钮，只要点击按钮，就会自动筛选出和系统日期相同的月份和日，比如今天是5月3日，那么点击按钮后会自动筛选出0503，这个代码要怎么写，麻烦老师帮我写下，谢谢！

A列

0503

0728

0301

0501

xiangyushi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：124 积分：1359 威望：0 精华：0 注册：2012/4/26 16:40:00

Post By：2019/5/3 6:45:00 [只看该作者]

Dim md As String

md= Right(Format(Date.Now, "yyyyMMdd"),4) '生成当前时间的筛选值,月日

Tables("表名").Filter = "A列 = '" & md & "'" '执行筛选

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/4 10:14:00 [只看该作者]

参考

Dim md As String = Format(Date.Now, "MMdd")
Tables("表名").Filter = "A列 = '" & md & "'" '执行筛选

主题：自动筛选问题