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里的数据时，表不会立即进行筛选，而必须在其他的地方操作一下，比如在页面空白处点一下才能筛选出全部，这是为什么呢
加好友 
发短信
Post By：2017/11/17 17:08:00 [只看该作者]
