主题：[求助]窗口中按钮点击筛选不起作用，请各位大神帮忙看看怎么做，谢谢！

如题，我想做的效果是，我在给点的筛选条件中输入了条件（条件可以为空）以后，希望在表A中显示筛选出来的结果，但是我按帮助文件中的说法做了，点击后确不起作用，麻烦各位大神帮忙看看。

筛选条件有：

1、开始时间（时间输入控件）

2、结束时间（时间输入控件）

3、偏差发生部门（下拉菜单控件）

4、偏差责任部门（下拉菜单控件）

5、区域QA（文本输入，即手动输入名字，表A中筛选出与之相同的文本的结果）

6、根源分类（下拉菜单控件）

7、人员失误分类（下拉菜单控件）

帮组文件中的部分代码，我试了，但是不起作用，代码如下：

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报告日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报告日期 <= #" & .Value & "#"
    End If
End With