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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树问题?

共有4065人关注过本帖树形打印复制链接主题：目录树问题?

fangdejin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：411 积分：4309 威望：0 精华：0 注册：2018/7/18 21:08:00

目录树问题? 发帖心情

Post By：2021/9/4 14:03:00 [只看该作者]

让非选中的节点关闭

代码是狐狸大人的:

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

其中的 i 不知道该循环哪个?

allnodes 提示index 超出

nodes 直接死循环崩溃

请示蓝版解答

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110662 积分：563224 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/4 14:05:00 [只看该作者]

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
nd.Collapse()
End If
Next
e.Node.Expand()