Dim Filter As String

If e.Node.Text = "加载所有数据" Then

    Filter = ""

Else

    Dim Value() As String

    Value = e.Node.FullPath.Split("\\")

    Select Case e.Node.Level

        Case 0

            Filter ="[省] = \'" & Value(0) & "\'"

        Case 1

            Filter ="[省] = \'" & Value(0) & "\' And [市] = \'" & Value(1) & "\'"

    End Select

End If

DataTables("出库").LoadFilter = Filter

DataTables("出库").Load()

Dim Value()As String

Dim Filter As String

Value = e.Node.FullPath.Split("\\")

Select Case e.Node.Level

    Case 0

        Filter ="Year(发货日期) = " & Value(0)

    Case 1

        Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1)

End Select

DataTables("出库").LoadFilter = Filter

DataTables("出库").Load()

想在目录树中上述两代码连接在一起，即以省和年作为根节点，如何设置，窗口事件中的代码如何修改？