主题：[求助]关于按日期展开的目录树

做个再生成的按钮：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nde As WinForm.TreeNode

Dim s As String
Dim Values() As String

trv.Nodes.Clear() '清除以前的节点
trv.Nodes.Add("按产品名称")
trv.SelectedNode = trv.Nodes("按产品名称")
s = DataTables("产品表").GetComboListString("产品名称")
Values = s.split("|")
For i As Integer = 0 To Values.Length-1
    trv.SelectedNode.Nodes.Add(Values(i))
Next

按年月生成目录树，帮助有例子：

http://www.foxtable.com/help/topics/0917.htm