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 Product 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

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

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

            Filter = "出库日期 >= #" & d1 & "# And 出库日期 <= #" & d2 & "# And 客户 = \'" & Product & "\'"

    End Select

End If

Tables("客户表").Filter = Filter

结果双击无法显示筛选后的结果？