主题：关于帮助中用SQL语句设计加载树的提问。（狐爸已经解决了）

初学者提问：

帮助的代码：

1、窗口的AfterLoad事件代码改为：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月, 产品 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|产品")

2、目录树的NodeMouseDoubleClick事件代码改为：

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)
    Case 2
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1) & " And 产品 = '" & Value(2) & "'"
    End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

生成的目录树是：