关于筛选的问题，求教

jinzhanxi

关于窗体上建立筛选的方式， Henry D. Sy老师教了一种方式（http://www.office-cn.net/thread-113136-1-2.html），但是我转移到自己的里面，发现其他三个都好用，其中的部门这个筛选不好用，请大家帮忙看看是什么原因？谢谢



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 状态_AfterUpdate()
    gString
End Sub

Private Sub 备注_AfterUpdate()
    gString
End Sub

todaynew

说明控件的名称不对。

jinzhanxi

todaynew 发表于 2012-7-10 15:46
说明控件的名称不对。

帮忙看看那里不对呗

todaynew

jinzhanxi 发表于 2012-7-10 15:49
帮忙看看那里不对呗

没什么可看的，不是组合框的名称不对就是组合框的绑定项不对，就这个两个原因。

jinzhanxi

todaynew 发表于 2012-7-10 15:52
没什么可看的，不是组合框的名称不对就是组合框的绑定项不对，就这个两个原因。

………………都实验了，就是没发现为啥……

jinzhanxi

请大大帮忙，请老师帮忙

jinzhanxi

有没有老师帮忙看看啊？
真的感觉没有问题了啊，都改过了，还是不行。

jinzhanxi

真心着急啊，老师都不上班吗{:soso_e127:}

jinzhanxi

真心着急啊，老师都不上班吗{:soso_e127:}

若离ヘ不弃°

你附件下下来都打不开的，不过你其他好用只有一个部门的话应该确实是名称，或者列数没设好，问题是，我用同样的方法一个都筛选不了啊，都说我找不到表达式中引用的字段- -，还是说07版跟03版代码有变化了吗