关于不同条件筛选的问题，求教

jinzhanxi

给予基本信息的表格，建立了不同部门的筛选，利用筛选制作了窗体。

目前我的做法是一个单位一个筛选一个窗体，用按钮控件打开窗体

但由于单位较多，需要建30个左右的筛选和窗体，有没有办法用一个窗体直接完成，单位用下来菜单的方式选择，点击即可变成对于部门的筛选？

晨微凉

学习学习

若离ヘ不弃°

Henry D. Sy 发表于 2012-7-4 11:03

版主大人，我最近也在做多重筛选，参考了你的事例，发现会错误，我调试后说gString = Left(gString, Len(gString) - 5) 这句有问题，我想说这句具体是怎么用的啊= =

jinzhanxi

Henry D. Sy 发表于 2012-7-4 12:29

增加的这个 复原，很关键，谢谢~~~

Henry D. Sy

jinzhanxi 发表于 2012-7-4 12:26
就是这个，学习了~~~~
谢谢！

jinzhanxi

Henry D. Sy 发表于 2012-7-4 12:22

就是这个，学习了~~~~
谢谢！

Henry D. Sy

1. Function gString()
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.Controls
   
4.         If TypeOf ctl Is ComboBox Then
   
5.             If Not IsNull(ctl) Then
   
6.                 gString = gString & ctl.Name & "='" & ctl & "' And "
   
7.             End If
   
8.         End If
   
9.     Next
   
10.     If Len(gString) <> 0 Then
    
11.         gString = Left(gString, Len(gString) - 5)
    
12.         Me.表1_子窗体.Form.Filter = gString
    
13.         Me.表1_子窗体.Form.FilterOn = True
    
14.     End If
    
15. End Function

复制代码

jinzhanxi

Henry D. Sy 发表于 2012-7-4 11:49
可以无数个条件

怎么进行，我刚试着在例子里复制粘贴了一次，设置条件也换了，但是筛选不出来，不知道是不是我设的不对。

这样只能一个一个的筛选，无法达到同时筛选

Henry D. Sy

可以无数个条件

jinzhanxi

Henry D. Sy 发表于 2012-7-4 11:03

再多问一下，如果要设置两个筛选项怎么办？

比如例子中增加筛选性别的选项，能否筛选出行政部几个人，男的几个女的几个，财务部女的几个。

这样子能实现吗？

以此类推，能再加上第三个条件，筛选学历吗？

最多几个条件？