请教删除TREEVIEW的字项

nagee

想做一个动态装载数据的TREEVIEW，有个问题请教：

如何删除所选项的下全部的子项，但不包含所选择的项目！

nagee

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

fan0217

你还需要同时对数据表中的数据进行删除才行.