以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  topicbars  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100463)

--  作者：bluesky3234 --  发布时间：2017/5/11 18:18:00 --  topicbars 请问老师，下面的代码，筛选条件中，能筛选 下图中到期时间列为黄色的吗？ 此主题相关图片如下：qq图片20170511181651.png  Case "即将到期缺陷"         Tables("供电设备缺陷登记表").ApplyFilter = False         Tables("供电设备缺陷登记表").Filter = "处理结果 = false and "         Forms("未处理缺陷窗口").show

--  作者：有点色 --  发布时间：2017/5/11 18:28:00 --    你drawcell里面的代码怎么写，贴出看看。

--  作者：bluesky3234 --  发布时间：2017/5/11 22:06:00 --   If e.Col.Name = "到期日期" Then     If e.Row.IsNull("到期日期") = False         If e.Row("到期日期") < Date.Today.AddDays(7) And e.Row("到期日期") >= Date.Today Then             e.Style = "即将到期"         Else If e.Row("到期日期") < Date.Today Then             e.style = "超期"         End If     End If End If

--  作者：bluesky3234 --  发布时间：2017/5/11 22:07:00 --   七日内为即将到期

--  作者：有点色 --  发布时间：2017/5/11 23:20:00 --   Tables("供电设备缺陷登记表").Filter = "处理结果 = false and 到期日期 < #" & Date.Today.AddDays(7) & & " And 到期日期 >= #" & Date.Today & "#" [此贴子已经被作者于2017/5/11 23:20:45编辑过]