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

Dim Filter As String

With e.Form.Controls("xx2")
    If .Value IsNot Nothing Then
        Filter = "学校名称= '" & .Value & "'"
    End If
End With

If Filter > "" Then
    e.Form.Controls("Table1").Table.Filter = Filter
End If