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

jinzhanxi

關(guān)于窗體上建立篩選的方式， Henry D. Sy老師教了一種方式（http://www.mzhfr.cn/thread-113136-1-2.html），但是我轉(zhuǎn)移到自己的里面，發(fā)現(xiàn)其他三個(gè)都好用，其中的部門(mén)這個(gè)篩選不好用，請(qǐng)大家?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.花名冊(cè)_整體子窗體1.Form.Filter = gString
        Me.花名冊(cè)_整體子窗體1.Form.FilterOn = True
        Me.花名冊(cè)_整體子窗體2.Form.Filter = gString
        Me.花名冊(cè)_整體子窗體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.花名冊(cè)_整體子窗體1.Form.FilterOn = False
    Me.花名冊(cè)_整體子窗體2.Form.FilterOn = False
End Sub

Private Sub 公司_AfterUpdate()
    gString
End Sub

Private Sub 部門(mén)_AfterUpdate()
    gString
End Sub

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

Private Sub 備注_AfterUpdate()
    gString
End Sub

todaynew

說(shuō)明控件的名稱不對(duì)。

jinzhanxi

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

幫忙看看那里不對(duì)唄

todaynew

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

沒(méi)什么可看的，不是組合框的名稱不對(duì)就是組合框的綁定項(xiàng)不對(duì)，就這個(gè)兩個(gè)原因。

jinzhanxi

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

………………都實(shí)驗(yàn)了，就是沒(méi)發(fā)現(xiàn)為啥……

jinzhanxi

請(qǐng)大大幫忙，請(qǐng)老師幫忙

jinzhanxi

有沒(méi)有老師幫忙看看�。�
真的感覺(jué)沒(méi)有問(wèn)題了啊，都改過(guò)了，還是不行。

jinzhanxi

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

jinzhanxi

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

若離ヘ不棄°

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