excle的筛选功能非常好用，很灵活。但是狐表似乎实现不了，每次取消筛选后又要重新设置各种筛选条件。有什么好办法可以实现吗？
比如
添加条件
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