關(guān)于篩選的問題，求教

jinzhanxi

關(guān)于窗體上建立篩選的方式， Henry D. Sy老師教了一種方式（http://ctxi.cn/thread-113136-1-2.html），但是我轉(zhuǎn)移到自己的里面，發(fā)現(xiàn)其他三個都好用，其中的部門這個篩選不好用，請大家?guī)兔�看看是什么原因？謝謝



Option Compare Database
Option Explicit

Function gString()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is ComboBox Then
            If Not IsNull(ctl) Then
                gString = gString & ctl.Name & "='" & ctl & "' And "
            End If
        End If
    Next
    If Len(gString) <> 0 Then
        gString = Left(gString, Len(gString) - 5)
        Me.花名冊_整體子窗體1.Form.Filter = gString
        Me.花名冊_整體子窗體1.Form.FilterOn = True
        Me.花名冊_整體子窗體2.Form.Filter = gString
        Me.花名冊_整體子窗體2.Form.FilterOn = True
    End If
End Function

Private Sub Command12_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is ComboBox Then
            ctl = Null
        End If
    Next
    Me.花名冊_整體子窗體1.Form.FilterOn = False
    Me.花名冊_整體子窗體2.Form.FilterOn = False
End Sub

Private Sub 公司_AfterUpdate()
    gString
End Sub

Private Sub 部門_AfterUpdate()
    gString
End Sub

Private Sub 狀態(tài)_AfterUpdate()
    gString
End Sub

Private Sub 備注_AfterUpdate()
    gString
End Sub

todaynew

說明控件的名稱不對。

jinzhanxi

todaynew 發(fā)表于 2012-7-10 15:46
說明控件的名稱不對。

幫忙看看那里不對唄

todaynew

jinzhanxi 發(fā)表于 2012-7-10 15:49
幫忙看看那里不對唄

沒什么可看的，不是組合框的名稱不對就是組合框的綁定項不對，就這個兩個原因。

jinzhanxi

todaynew 發(fā)表于 2012-7-10 15:52
沒什么可看的，不是組合框的名稱不對就是組合框的綁定項不對，就這個兩個原因。

………………都實驗了，就是沒發(fā)現(xiàn)為啥……

jinzhanxi

請大大幫忙，請老師幫忙

jinzhanxi

有沒有老師幫忙看看啊？
真的感覺沒有問題了啊，都改過了，還是不行。

jinzhanxi

真心著急啊，老師都不上班嗎{:soso_e127:}

jinzhanxi

真心著急啊，老師都不上班嗎{:soso_e127:}

若離ヘ不棄°

你附件下下來都打不開的，不過你其他好用只有一個部門的話應(yīng)該確實是名稱，或者列數(shù)沒設(shè)好，問題是，我用同樣的方法一個都篩選不了啊，都說我找不到表達式中引用的字段- -，還是說07版跟03版代碼有變化了嗎