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

jinzhanxi

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

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

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

Henry D. Sy

1. Private Sub Combo4_AfterUpdate()
   
2.     Dim strWhere As String
   
3.     If Not IsNull(Me.Combo4) Then
   
4.         strWhere = "部门 like '*" & Me.Combo4 & "*'"
   
5.         Me.表1_子窗体.Form.Filter = strWhere
   
6.         Me.表1_子窗体.Form.FilterOn = True
   
7.     End If
   
8. End Sub
   

复制代码

windymeng

强人啊  加班学习

jinzhanxi

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

学习了，就是这样，十分感谢~~~~~~~~

jinzhanxi

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

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

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

这样子能实现吗？

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

最多几个条件？

Henry D. Sy

可以无数个条件

jinzhanxi

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

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

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

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 12:22

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

Henry D. Sy

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