Dim Filter As String = ""

Se lect Case e.Sender.SelectedNode.Name

    Case "显示所有行"

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

        \'Tables("供应商发票主_Table1").Filter = ""

    Case "未付款"

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

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

    Case "预付款"

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

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

    Case "月结账号"

        \'Tables("供应商发票主_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("供应商发票主_Table1").Filter = Filter