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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 树节点删除问题

共有1513人关注过本帖树形打印复制链接主题：[求助] 树节点删除问题

lzzhx

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

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

[求助] 树节点删除问题 发帖心情

Post By：2016/6/28 16:39:00 [只看该作者]

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

Dim nd As WinForm.TreeNode

trv.Nodes.Clear

trv.Nodes.Add("按钮","按钮")

trv.Nodes.Add("数据表","数据表")

trv.Nodes.Add("单选框","单选框")

trv.Nodes.Add("复选框","复选框")

nd = trv.Nodes(0)

nd.nodes.Add("按钮1","按钮1")

nd = trv.Nodes(1)

nd.nodes.Add("数据表1","数据表1")

For Each nd In trv.Nodes

MessageBox.Show(nd.text & "=" & nd.Nodes.Count )

If nd.Nodes.Count = 0 Then

nd.Delete

End If

上面代码中树节点遍历从消息框看根本就到不了第4个节点，要把红色的代码注释掉，遍历树节点就正常，现在想判断一下当树节点没有子节点时应把该节点删除，该如何写代码？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/28 16:44:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
trv.Nodes.Clear
trv.Nodes.Add("按钮","按钮")
trv.Nodes.Add("数据表","数据表")
trv.Nodes.Add("单选框","单选框")
trv.Nodes.Add("复选框","复选框")
nd = trv.Nodes(0)
nd.nodes.Add("按钮1","按钮1")
nd = trv.Nodes(1)
nd.nodes.Add("数据表1","数据表1")
Dim ls As new List(of object)
For Each nd In trv.Nodes
    MessageBox.Show(nd.text & "=" & nd.Nodes.Count )
    If nd.Nodes.Count = 0 Then
        ls.add(nd)
    End If
Next
For Each nd In ls
    nd.delete
next

lzzhx

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

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2016/6/28 16:46:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

主题：[求助] 树节点删除问题