主题：查询窗口设计问题

你漏掉一行吧：

Dim Filter As String
With e.Form.Controls("commudi")
    If .value IsNot Nothing Then
        Filter="目的地 = '" & .Value & "'"
    End If
End With
Tables("xxx").Filter = filter