插入节点的问题 ← <b><font color="#FF0000">专家坐堂</font></b> ← Foxtable(狐表)

帮助中：

Insert

在指定位置插入一个节点。

语法

Add(Name, Text, Index)
Add(Name, Text, Icon, Index)

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
tr.Nodes.Insert("Node0","节点1",0)
----------------------------------------------------
请问：
1、Node0 在这里是什么作用？好像有没有这个字符串（或任意字符）都一样啊～
2、如何在指定（或选定）的下级节点上插入一个节点？上面代码怎么只能在一级节点上的指定位置（能不能是选中的位置？）插入节点。

[此贴子已经被作者于2010-4-4 20:56:07编辑过]

以下是引用mr725在2010-4-4 20:39:00的发言：
帮助中：

Insert

在指定位置插入一个节点。

语法

Add(Name, Text, Index)
Add(Name, Text, Icon, Index)

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
tr.Nodes.Insert("Node0","节点1",0)
----------------------------------------------------
请问：
1、Node0 在这里是什么作用？好像有没有这个字符串（或任意字符）都一样啊～
2、如何在指定（或选定）的下级节点上插入一个节点？上面代码怎么只能在一级节点上的指定位置（能不能是选中的位置？）插入节点。

[此贴子已经被作者于2010-4-4 20:56:07编辑过]

这个问题上周前我已经提交给贺老师，还没有得到正式回复，目前好像tr.Nodes.Insert和tr.Nodes.add没啥区别！

预告，下次更新后，可以这样：

HTML clipboard

Index

返回节点的位置。

例如要在选定节点位置插入一个新的节点：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim id As Integer = nd.index
If nd.ParentNode Is Nothing Then
nd = tr.Nodes.Insert("新节点","新节点",id)
Else
nd = nd.ParentNode.Nodes.Insert("新节点","新节点",id)
End If
tr.SelectedNode = nd '选择新插入的节点
tr.Select '选择目录树

标题：插入节点的问题