初学者提问：

帮助的代码：

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()

生成的目录树是：　

这里有解决方法：
http://www.foxtable.com/help/topics/2302.htm

 
代码很简单：

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 0 TYhen

       nd.Text = md.Text & "年"

    Elseif nd.Level = 1 then

       nd.Text = md.Text & "年"
    End If
Next
 
多看帮助。

使用代码：

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 0 Then
       nd.Text = nd.Text & "年"
    ElseIf nd.Level = 1 Then
       nd.Text = nd.Text & "月"
    End If
Next

后，无论双击，年份或月份，都弹出出错提示。

你不修改加载代码肯定出错的。

因为目录树节点的值现在是“1999年”，不是“1999”，而代码要的是1999。

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(日期) = " & Value(0).Replace("年","")
    Case 1
        Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","")
    Case 2
        Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","") & " And 产品 = \'" & Value(2) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()