怎样找到树的某节点的所有上层节点?50分 在一个树结构中,已知每个节点的ID和下级节点数组,如何找到某节点的所有上层节点? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 .Parent直到根节点 调用方式: tree TreeView1.Nodes(6)Private Sub tree(Xnod As Node) If Not (Xnod.Parent Is Nothing) Then MsgBox Xnod.Parent tree Xnod.Parent Else Exit Sub End IfEnd Sub 是这样的,数据是xml,如下:<root> <node id="1" sub="5,2"/> <node id="2" sub="3"/> <node id="3" sub="4"/> <node id="4 sub=""/> <node id="5" sub="6"/> <node id="6" sub=""/></root>其中,id是节点号,sub是下级节点号,要求找到任意节点的所有上级节点,如节点6的上级是5,1;节点4的上级是3,2,1。 do until mNod.parent is nothing do until mNod.parent is nothing set mnod=mNod.parentloop VB6中如何用WebBrowser打开txt文件? 窗体大小的奇怪问题! 一个小问题。请大家进来看看 如何在datagrid控件中使用下拉框的选择(虽然有类似的帖子,但是始终无法解决一些问题) 怎么在vb用net指令? msexcl35.dll不能在系统注册库中注册是怎么回事? VB GDI+ 问题 初学vb,下面的问题帮忙看一下,谢谢 急救 ! 关于ftp 怎样用TEXTBOX 做出一个HOTKEY控件来, VB操作DBF数据库之浅见,以供大家讨论! MSHFlexGrid控件如何合并单元格呢?
调用方式: tree TreeView1.Nodes(6)Private Sub tree(Xnod As Node)
If Not (Xnod.Parent Is Nothing) Then
MsgBox Xnod.Parent
tree Xnod.Parent
Else
Exit Sub
End If
End Sub
<root>
<node id="1" sub="5,2"/>
<node id="2" sub="3"/>
<node id="3" sub="4"/>
<node id="4 sub=""/>
<node id="5" sub="6"/>
<node id="6" sub=""/>
</root>
其中,id是节点号,sub是下级节点号,要求找到任意节点的所有上级节点,如节点6的上级是5,1;节点4的上级是3,2,1。
set mnod=mNod.parent
loop