[求助]逐级筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String
With e.Form.Controls("项目编码")
    If .Value <> Nothing Then
        Filter = "项目编码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("所属机构")
    If .Value <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= "所属机构 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("项目类别")
    If .Value <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= "项目类别 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("项目名称")
    If .Value <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "项目名称 like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("起始日期")
    If .Value <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "中标日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("截止日期")
    If .Value <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "中标日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

以下是引用cd_tdh在2017/11/17 12:32:00的发言：

IsNot 和 <>有什么区别？

关键是这个代码

Filter &= "所属机构 = '" & .Value & "'"

Filter = Filter & "所属机构 = '" & .Value & "'"

以下是引用cd_tdh在2017/11/17 16:31:00的发言：

这个注意到了，这两种写法是一个意思吗？

是的。

isnot 和 <> 基本没有区别，判断基本类型（字符串、数字、日期等）一般都用 <>，判断对象（datarow、dattatable等）一般用 isNot

With e.Form.Controls("签订状态")
    If .Value <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        If .Value="已签订" Or .Value="未签订"
            Filter = filter & "签订状态 = '" & .Value & "'"
        Else
            Filter = filter & "签订状态 is null"
        End If
    End If
End With

代码写到textChanged事件里面；然后把所有的.value改成.text

主题：[求助]逐级筛选