以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25673)
--  作者：方沈
--  发布时间：2012/11/14 11:01:00
--  逻辑筛选

请问

我在表中有一逻辑列"完成状况",在"TPM筛选"窗口增加一个"ComboBox9")复选框,复选框中的自定义项目设置"False,True",在筛选按钮设置如下代码
Dim Filter As String
With e.Form.Controls("ComboBox9")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        If .Value = "完成状况" Then
            Filter = Filter & " 完成状况 = True"
        Else
            Filter = Filter & " 完成状况 = False"
        End If
    End If
End With
If Filter > "" Then
    Tables("TPM").Filter = Filter
End If

现在问题是:不管在ComboBox9写入False或True,筛选出来的都是未勾选的行
--  作者：狐狸爸爸
--  发布时间：2012/11/14 11:10:00
--  
Dim Filter As String
If e.Form.Controls("ComboBox9").Checked
    Tables("TPM").Filter = "完成状况 = True"
Else
    Tables("TPM").Filter = "完成状况 = False Or 完成状况 Is Null"
End If
--  作者：方沈
--  发布时间：2012/11/14 11:34:00
--  

还是不行,请求帮助

具体件附件
--  作者：lin_hailun
--  发布时间：2012/11/14 11:41:00
--  
 楼主的附件在哪里？