關(guān)于不同條件篩選的問題，求教

jinzhanxi

給予基本信息的表格，建立了不同部門的篩選，利用篩選制作了窗體。

目前我的做法是一個(gè)單位一個(gè)篩選一個(gè)窗體，用按鈕控件打開窗體

但由于單位較多，需要建30個(gè)左右的篩選和窗體，有沒有辦法用一個(gè)窗體直接完成，單位用下來菜單的方式選擇，點(diǎn)擊即可變成對(duì)于部門的篩選？

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
   

復(fù)制代碼

windymeng

強(qiáng)人啊  加班學(xué)習(xí)

jinzhanxi

Henry D. Sy 發(fā)表于 2012-7-4 11:03

學(xué)習(xí)了，就是這樣，十分感謝~~~~~~~~

jinzhanxi

Henry D. Sy 發(fā)表于 2012-7-4 11:03

再多問一下，如果要設(shè)置兩個(gè)篩選項(xiàng)怎么辦？

比如例子中增加篩選性別的選項(xiàng)，能否篩選出行政部幾個(gè)人，男的幾個(gè)女的幾個(gè)，財(cái)務(wù)部女的幾個(gè)。

這樣子能實(shí)現(xiàn)嗎？

以此類推，能再加上第三個(gè)條件，篩選學(xué)歷嗎？

最多幾個(gè)條件？

Henry D. Sy

可以無數(shù)個(gè)條件

jinzhanxi

Henry D. Sy 發(fā)表于 2012-7-4 11:49
可以無數(shù)個(gè)條件

怎么進(jìn)行，我剛試著在例子里復(fù)制粘貼了一次，設(shè)置條件也換了，但是篩選不出來，不知道是不是我設(shè)的不對(duì)。

這樣只能一個(gè)一個(gè)的篩選，無法達(dá)到同時(shí)篩選

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

復(fù)制代碼

jinzhanxi

Henry D. Sy 發(fā)表于 2012-7-4 12:22

就是這個(gè)，學(xué)習(xí)了~~~~
謝謝！

Henry D. Sy

jinzhanxi 發(fā)表于 2012-7-4 12:26
就是這個(gè)，學(xué)習(xí)了~~~~
謝謝！