主题：[求助]逐级筛选

此主题相关图片如下：11111.jpg

老师，之前看到过这样的论坛，没找到在哪儿了，如图，我在控件“姓名“的TextChanged代码：

Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("员工档案").Filter = Filter
End If

当我筛选后，在“在职状态“的TextChanged代码：

Dim Filter As String
With e.Form.Controls("在职状态")
    If .Value IsNot Nothing Then
        Filter = "在职状态 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("员工档案").Filter = Filter
End If

没有实现，在姓名筛选后的基础上进行筛选，而是又单独筛选了一次全部符合在职状态的数据，需要逐级筛选这个怎么改呢？

老师，还是有点问题，比如我先选择所属机构，在选择项目类别，出来的还是结果还是项目类别的结果，不是选择的所属机构中项目类别的结果呢？还有就是，当我先选择后面的选项，在选择线面的选项，不执行。

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 = "所属机构 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("项目类别")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        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 & "项目名称 like '%" & .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
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
    Tables("中标统计").Filter = Filter
End If

IsNot 和 <>有什么区别？

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

有点甜老师，有个签订状态，怎么一起加入筛选：

代码如下：

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