treeview控件： 删除子树

时　间:2007-10-21 10:26:40
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:treeview控件： 删除子树
正　文:

来源：ACCESS中国 阿罗
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