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

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个节点，要把红色的代码注释掉，遍历树节点就正常，现在想判断一下当树节点没有子节点时应把该节点删除，该如何写代码？

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