Office中国论坛/Access中国论坛

标题: [原创分享] treeview控件：删除子树 [打印本页]

作者: 阿罗 时间: 2003-11-9 07:48
标题: [原创分享] 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]

作者: 没牙兔兔 时间: 2003-11-9 19:17
呵呵,不错不错,原来也可以这样删除哦

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

作者: 阿罗 时间: 2003-11-9 21:58

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

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

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

更不用重新构造整个树。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)