以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请老师帮忙写一个窗口筛选命令  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16384)
--  作者：a9858
--  发布时间：2012/2/12 10:51:00
--  [求助]请老师帮忙写一个窗口筛选命令
在窗口加一个按钮，筛选出日期为今天 怎么写另外还要加上清除筛选命令，谢谢
--  作者：czy
--  发布时间：2012/2/12 10:55:00
--  

Dim d As Date = Forms("窗口1").Controls("DateTimePicker1").Value
Tables("表A").Filter = "日期 = #" & d & "#"

 

取消筛选

 

Tables("表A").Filter = “”
--  作者：a9858
--  发布时间：2012/2/12 11:09:00
--  
非常感谢czy老师，搞定了。