筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String

With e.Form.Controls("combobox1")

If .Value IsNot Nothing Then

Filter = "对应客户 = '" & .Value & "'"

Else filter=""

End If

End With

With e.Form.Controls("combobox2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

Else filter="" & " And "

End If

Filter = Filter & "部门 = '" & .Value & "'"

End If

End With

With e.Form.Controls("combobox14")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

Else filter=""& " And "

End If

Filter = Filter & "客户负责人 = '" & .Value & "'"

End If

End With

If Filter > "" Then

Tables("联系_table1").Filter = Filter

End If

这段代码是写在三个combobox里的valuechanged里面的，

请问一下老师，

1为什么我先选择combobox2或3时，系统会提示语法错误:“And”运算符前缺少操作数。但是我按顺序来先选择1就会正常运行，

2当我清空combobox里的数据时，表不会立即进行筛选，而必须在其他的地方操作一下，比如在页面空白处点一下才能筛选出全部，这是为什么呢

写到TextChanged事件去

Dim Filter As String
With e.Form.Controls("combobox1")
    If .text <> Nothing Then
        Filter = "对应客户 = '" & .text & "'"
    End If
End With
With e.Form.Controls("combobox2")
    If .text <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "部门 = '" & .text & "'"
    End If
End With
With e.Form.Controls("combobox14")
    If .text <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户负责人 = '" & .text & "'"
    End If
End With

If Filter > "" Then
Tables("联系_table1").Filter = Filter
End If

老师好，但是这么写话当我清空combobox数据时表并不会回到未筛选的状态啊，而是保留在我上次筛选完时的状态，这样应该怎么改

代码没有问题，上实例说明

是把三个combobox的数据都清空时不会返回未筛选状态

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

If Filter > "" Then

Tables("联系_table1").Filter = Filter

End If

3个控件都改为：

Tables("联系_table1").Filter = Filter

去掉if判断

主题：筛选问题