[原創(chuàng)分享] treeview控件： 刪除子樹

阿羅

treeview控件： 如何刪除所選節(jié)點(diǎn)下的所有節(jié)點(diǎn)

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

刪除某個(gè)節(jié)點(diǎn)下的子節(jié)點(diǎn)就是：

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]

沒牙兔兔

呵呵,不錯(cuò)不錯(cuò),原來(lái)也可以這樣刪除哦

兔兔以前用的是
xTree.Nodes.Remove nodTemp.Index  方法
還要讀數(shù)據(jù)庫(kù)

阿羅

以下是引用沒牙兔兔在2003-11-9 11:16:51的發(fā)言：
呵呵,不錯(cuò)不錯(cuò),原來(lái)也可以這樣刪除哦

兔兔以前用的是
xTree.Nodes.Remove nodTemp.Index  方法
還要讀數(shù)據(jù)庫(kù)

就是就是，這樣子可以不用讀數(shù)據(jù)庫(kù)了，因?yàn)樘貏e是多用戶的情況下，萬(wàn)一子節(jié)點(diǎn)對(duì)應(yīng)的數(shù)據(jù)有更改，那就會(huì)出錯(cuò)。

更不用重新構(gòu)造整個(gè)樹。