主题：收起和展开目录树节点

老师，

问题1：使用目录树去控制窗口的打开，我就写了十几个同类代码去控制窗口，系统就直接反应慢的很，等好久才反应，

问题2：系统提示如截图，可是我明明有这几列

此主题相关图片如下：qq截图20150318182932.png

 请上传对应例子测试。

老师，我解决了，是因为我粗心写错表的名字了

老师，这个代码在系统中是可以运行了，也达到了我想要的效果，但今天测试时，发现光标的位置有时候不在我点击的位置，而是直接就跑到下一级的位置去了，具体描述是：

比如截图中的例子，我单击北京市的时候，北京市的二级是全打开的，然后我去点福建省的时候，鼠标并不在福建省的位置，而是可能会跑到了福建下的某一个展开的二级上了。

下面代码写到NodeMouseClick事件

 

systemready = False
e.Sender.StopRedraw
Dim pnd As object
If e.Node.Level = 0 Then
    pnd = e.Sender
Else
    pnd = e.Node.parentnode
End If
pnd.CollapseAll
'e.Sender.SelectedNode = e.Node
e.Node.Expand
e.Sender.ResumeRedraw
Systemready = True

恩恩，已经实现，谢谢