目录树的展开和折叠 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想表达：在窗口打开后，目录树能自动展开某个节点，目前只显示的根节点。

我的代码：窗口--->AfterLoad事件

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

tv.GenerateTree("GB2013土建","级码","清单名称", ".")

tv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In tv.AllNodes '遍历所有节点

If nd.Level = 3 Then '如果是二级节点

nd.Text = nd.DataRow("清单编码") & " " & nd.text

End If

tv.ResumeRedraw '恢复绘制目录树

tv.Nodes(1).Expand()

对于node和treenode这块的代码，我看了帮助文档还是很模糊。以后是否能增加更多例子以供学习？
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20220418110357.png

主题：目录树的展开和折叠