以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  实现excel一样的筛选功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194872)

--  作者:jacksnfeng
--  发布时间:2025/1/24 10:10:00
--  实现excel一样的筛选功能
excle的筛选功能非常好用,很灵活。但是狐表似乎实现不了,每次取消筛选后又要重新设置各种筛选条件。有什么好办法可以实现吗?
--  作者:有点蓝
--  发布时间:2025/1/24 10:16:00
--  
可以自己建一个表,把筛选条件保存下来下次使用
--  作者:jacksnfeng
--  发布时间:2025/1/24 10:21:00
--  
有没有案例可以参考?
--  作者:有点蓝
--  发布时间:2025/1/24 10:26:00
--  
比如

添加条件
dim dr as datarow  =datatables("条件表").addnew
dr("表名") = "表A"
dr("条件说明") = "筛选第一列等于a的数据"
dr("条件") = "第一列=\'a\'"

使用条件
dim dr as datarow  =datatables("条件表").find("表名=\'表A\' and 条件说明 like \'%第一列等于a%\'")
if dr isnot nothing then
tables("表A").filter = dr("条件") 
endif