以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]条件筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145151)

--  作者:lgj716330
--  发布时间:2020/1/9 21:00:00
--  [求助]条件筛选
1、Tables("完成情况_Table1").filter="年份 = \'" & N2 & "\' And 月份=\'" & y2 & "\' And 累计差距<=0"

2、For Each bm As String In DataTables("完成情况_Table1").GetValues("部门名称")
3、 Tables("完成情况_Table1").filter = ""
4、       Tables("完成情况_Table1").filter = "部门名称 = \'" & bm & "\'"
Next

首先根据1把符合条件的结果筛选出来,表中有一列是“部门名称”,然后获取筛选结果的部门名称集合,再取消原来的筛选,最后根据1结果中的部门名称重新筛选,上面结果不对,请改正



[此贴子已经被作者于2020/1/10 8:47:24编辑过]

--  作者:lgj716330
--  发布时间:2020/1/10 0:41:00
--  


[此贴子已经被作者于2020/1/10 0:46:19编辑过]

--  作者:有点蓝
--  发布时间:2020/1/10 10:08:00
--  
Dim str As String = DataTables("完成情况_Table1").GetComboListString("部门名称","年份 = \'" & N2 & "\' And 月份=\'" & y2 & "\' And 累计差距<=0")

Tables("完成情况_Table1").filter = "部门名称 in (\'" & str.replace("|","\',\'") & "\')"