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("呈报单位")

        

        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

                Filter = "[呈报单位] = \'" & e.Node.DataRow("呈报单位") & "\'and Year(日期) = " & Year & " And Month(日期) = " & Month

            Case 3

                Filter = "[呈报单位] = \'" & e.Node.DataRow("呈报单位") & "\'and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day

        End Select

    End If

    DataTables("创新活动表").LoadFilter = Filter

    DataTables("创新活动表").Load()

请您指导