以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用什么动作来筛选出全部红色 或全部黄色的数据？谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89345)
--  作者：约翰舒
--  发布时间：2016/8/19 14:11:00
--  用什么动作来筛选出全部红色 或全部黄色的数据？谢谢
还有一个问题，就是我在drawcell 中设置了日期的提醒，
If e.col.Name = "到期日期" Then

    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If


还有，未到期提醒，分别用 红底白字 和 黄底白字 显示


我想实现的是 ： 用什么动作来筛选出全部红色 或全部黄色的数据？谢谢
--  作者：大红袍
--  发布时间：2016/8/19 14:36:00
--  

 无法直接筛选。你要编写筛选条件才行，如

 

 

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#")
Tables("库存表").Filter = "到期日期 <= #" & dt & "#"
--  作者：约翰舒
--  发布时间：2016/8/19 14:46:00
--  
是在drawcell中编写吗？

编写代码后，怎么操作才能进行筛选，也是单机右键还是说单机筛选按钮？
--  作者：大红袍
--  发布时间：2016/8/19 14:46:00
--  
 单独做一个按钮啊
--  作者：约翰舒
--  发布时间：2016/8/19 15:10:00
--  
那怎么弄？
--  作者：大红袍
--  发布时间：2016/8/19 15:11:00
--  

 做一个窗口，写入代码

 

http://www.foxtable.com/webhelp/scr/0698.htm

 
--  作者：约翰舒
--  发布时间：2016/8/19 15:36:00
--  
这样的话太麻烦了，不能单独通过颜色来筛选吗？
--  作者：大红袍
--  发布时间：2016/8/19 15:42:00
--  
 不可以。