主题：[求助] 目录树展开与关闭

用这个比较好：
 
http://www.foxtable.com/help/topics/2302.htm

大概就是这样：
 
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = e.Node.Level AndAlso nd.FullPath <> e.Node.FullPath then
        trv.Nodes(i).Collapse()
    End If
Next
e.Node.Expand()

单击展开，这样不就行了吗：

e.Node.Expand()