主题：筛选树函数错误

Dim Filter As String = ""

Se lect Case e.Sender.SelectedNode.Name

    Case "显示所有行"

         Functions.Execute("筛选树" , "")

        'Tables("供应商fa piao主_Table1").Filter = ""

    Case "未付款"

        Functions.Execute("筛选树"," 未付款金额 > 0")

        'Tables("供应商fa piao主_Table1").Filter = "未付款金额 > 0"

    Case "预付款"

        Functions.Execute("筛选树" , " 预支付款金额 > 0")

       ' Tables("供应商fa piao主_Table1").Filter = "预支付款金额 > 0"

    Case "月结账号"

        'Tables("供应商fa piao主_Table1").Filter = "非预付款金额 > 0"

         Functions.Execute("筛选树" , " 非预付款金额 > 0")

    Case Else

        

        'If e.node.Name <> "显示所有行" Then

        Dim d1 As Date

        Dim d2 As Date

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

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

        Dim pmer As String = e.Node.DataRow("供应商名称")

        Sele ct 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 1

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

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

                Filter = "订单日期 >= #" & d1 & "# And 订单日期 <= #" & d2 & "# And 供应商名称 = '" & pmer & "'"

        End Se lect

        'End If

        Tables("供应商fa piao主_Table1").Filter = Filter