以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]写一个代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55433)
--  作者：如意大帝
--  发布时间：2014/8/16 17:20:00
--  [求助]写一个代码

 在如下的例子中，为时间筛选增加两个按钮，“上一天”，“下一天”直接筛选，代码怎样写？

 

http://www.foxtable.com/help/topics/1058.htm

 
--  作者：有点甜
--  发布时间：2014/8/17 10:04:00
--  

Tables("表A").Filter = "日期 >= #" & Date.Today.AddDays(-1) & "# and 日期 < #" & Date.Today & "#"

 

----------------

 

Tables("表A").Filter = "日期 >= #" & Date.Today.AddDays(1) & "# and 日期 < #" & Date.Today.AddDays(2) & "#"
--  作者：如意大帝
--  发布时间：2014/8/17 11:52:00
--  
谢谢！但是这个代码只能移动一天，怎样能让它继续移动呢？
--  作者：有点甜
--  发布时间：2014/8/17 11:55:00
--  

static d As Date = Date.Today

 

Tables("表A").Filter = "日期 >= #" & d.AddDays(-1) & "# and 日期 < #" & d & "#"

d = d.AddDays(-1)

 

----------------

 

static d As Date = Date.Today

Tables("表A").Filter = "日期 >= #" & d.AddDays(1) & "# and 日期 < #" & d.AddDays(2) & "#"

d = d.AddDays(1)
--  作者：如意大帝
--  发布时间：2014/8/17 14:11:00
--  
圆满解决，非常感谢！