主题：筛选问题

还可以看看：

http://www.foxtable.com/help/topics/0118.htm

http://www.foxtable.com/help/topics/2410.htm

如果这样，更加简单，窗口插入两个文本框，一个按钮，按钮代码为：

Dim flt As String
If e.Form.Controls("TextBox1").value IsNot Nothing Then
    flt = "第一列 = '" & e.Form.Controls("TextBox1").value & "'"
End If
If e.Form.Controls("TextBox2").value IsNot Nothing Then
    If flt > "" Then
        flt  = flt & " Or "
    End If
    flt = flt & "第一列 = '" & e.Form.Controls("TextBox2").value & "'"
End If
If flt > "" Then
    Tables("表A").Filter = flt
End If