Office中国论坛/Access中国论坛

标题: 请教删除TREEVIEW的字项 [打印本页]

作者: nagee 时间: 2006-4-7 23:52
标题: 请教删除TREEVIEW的字项
想做一个动态装载数据的TREEVIEW，有个问题请教：

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

作者: nagee 时间: 2006-4-8 00:09
标题: 已经找到了！谢谢
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 时间: 2006-4-8 02:06
你还需要同时对数据表中的数据进行删除才行.

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