1、窗口的AfterLoad事件代码

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 项目,Year(日期) As 年, Month(日期) As 月,类别 From {支出录入}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|项目","项目|类别")
trv.Nodes.Insert("加载所有数据","加载所有数据",0)
trv.Nodes.Insert("按日期加载","按日期加载",4)

2、将目录树的NodeMouseDoubleClick事件

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) & "\'"
If e.Node.Text = "按日期加载数据" Then
Case 2
        Filter ="Year(日期) = " & Value(0)
    Case 3
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1)
    Case 4
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1) & " And 产品 = \'" & Value(2) & "\'"
End If
    End Select

End If
DataTables("支出录入").LoadFilter = Filter
DataTables("支出录入").Load()

以上代码如何修改才能在“按日期加载”子目录中出现“项目“，项目子目录又出现”年份“，在年份的子目录中出现”1到12 月份“

打开窗口看看一下

是不是不能实现啊

将上面的代码如何修改，才能出现如图的格式

怎么没人给看一下？