[原创分享] treeview控件： 删除子树

阿罗

treeview控件： 如何删除所选节点下的所有节点

Private Sub deleteChildren()
Dim i As Integer
If treeview1.selectedItem.Children <> 0 then
     For i=1 To treeview1.selectedItem.Children
            treeview1.Nodes.Remove(treeview1.Child.FirstSibling.key)
     Next i
End IF
End Sub

删除某个节点下的子节点就是：

Private Sub deleteChildren(byVal node As Object)
Dim i As Integer
If node.Children <> 0 then
     For i=1 To node.Children
            treeview1.Nodes.Remove(node.Child.FirstSibling.key)
     Next i
End IF
End Sub

如有雷同，乃是英雄所见略同[em06]

没牙兔兔

呵呵,不错不错,原来也可以这样删除哦

兔兔以前用的是
xTree.Nodes.Remove nodTemp.Index  方法
还要读数据库

阿罗

以下是引用没牙兔兔在2003-11-9 11:16:51的发言：
呵呵,不错不错,原来也可以这样删除哦

兔兔以前用的是
xTree.Nodes.Remove nodTemp.Index  方法
还要读数据库

就是就是，这样子可以不用读数据库了，因为特别是多用户的情况下，万一子节点对应的数据有更改，那就会出错。

更不用重新构造整个树。