主题：窗口筛选

请参考：
 
http://help.foxtable.com/topics/1284.htm

 
 
http://help.foxtable.com/topics/1058.htm

你传上的文件，按钮代码是空白的，请看完上述内容之后尝试自己写，写不好，再连同你的代码一起上传。
版主在帮你之前，也想知道你的代码到底在哪里有问题，而帮你之后，你也能知道自己的问题所在，更好地进步。
不能简单地将版主当做代码编辑器使用的，对你、对版主都不好。

逻辑列的值，就是True和False而已：

Dim Filter As String
With e.Form.Controls("型号")
    If .Value IsNot Nothing Then
        Filter = "型号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("规格")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "规格 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Filter = Filter & " And "
End If
If e.Form.Controls("完工").Checked = True
    Filter = Filter & "完工 = True"
Else
    Filter = Filter & "(完工 = False Or 完工 IS NULL)"
End If
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

确实该好好看看帮助的，这样开发效率会更高。

例如下面的帮助，在示例十四，就讲了逻辑列的筛选：

http://help.foxtable.com/topics/1647.htm

不是吹牛，我还没有发现一个软件的帮助，可以做到Foxtable这么贴近用户。