主题：条件筛选不能实现（代码如下）

Dim Filter As String
Tables("服务对象").Filter = filter
With e.Form.Controls("xx2")
    If .Value IsNot Nothing Then
        Filter = "学校名称= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("服务对象").Filter = Filter
End If

此主题相关图片如下：qq截图20140921100130.png