- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求自动筛选当天日期的代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81894)
-- 发布时间：2016/3/8 13:32:00
-- [求助]求自动筛选当天日期的代码？
此主题相关图片如下：qq图片20160308133329.png
求代码：
我设置一个列为预约日期，另一个列为登记日期
现，想点击控件，自动筛选预约了当天日期的行，然后自动移动到最上面
其它预约日期不是当天的行，自动按登记日期的先后顺序排列
请问代码怎么写？
-- 发布时间：2016/3/8 14:26:00
--
要添加辅助列才行，加一个排序列
DataTables("表A").ReplaceFor("排序列", 0, "预约日期 = #" & date.Today & "#")
DataTables("表A").ReplaceFor("排序列", 1, "预约日期 <> #" & date.Today & "# or 预约日期 is null")
Tables("表A").Sort = "排序列,登记日期"
-- 发布时间：2016/3/9 12:06:00
--
明白