主题：目录树双击事件代码求纠正（已解决），还请帮忙优化一下 谢谢

红色部分求纠正显示筛选条件为按日进行

代码如下：

Dim Filter As String = ""

If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性

    Dim d1 As Date

    Dim d2 As Date

    Dim Year As Integer = e.Node.DataRow("年")

    Dim Month As Integer = e.Node.DataRow("月")

    Dim day As Integer = e.Node.DataRow("日")

    Dim Product As String = e.Node.DataRow("组别")

    Dim yewurenyuan As String = e.Node.DataRow("业务人员")

    Select Case e.Node.Level

        Case 0

            d1 = New Date(Year,1,1) '取得该年的第一天

            d2 = new Date(Year,12,31) '取得该年的最后一天

            Filter = "录入时间 >= #" & d1 & "# And 录入时间 <= #" & d2 & "#"

        Case 1

            d1 = New Date(Year, Month, 1) '取得该月的第一天

            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天

            Filter = "录入时间 >= #" & d1 & "# And 录入时间 <= #" & d2 & "#"

        Case 2

    End Select

End If

Tables("订单编码").Filter = Filter

解决代码