主题：[原创]重命名树

狐爸:

重命名树是有例子的,没有问题.

我现在点击某节点,弹出一修改窗,其中也修改节点名,这时存不到树里,只能存到表里.请看一下:

Dim tr As WinForm.TreeView =  Forms("定位树").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim td As winform.treenode
Dim id As Integer = nd.index
td = tr.nodes(id)
td.Text = Forms("修改树").Controls("TextBox1").text
Tables("商品").Current.Save()
tr.SelectedNode = nd '选择新插入的节点
tr.Select '选择目录树

来自于表

运行"定位树",双击某节点调出修改窗,修改节点后保存,保存不了.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新狐3.table

你编的第三句我不太明白.另外,你的代码有点问题,请看修改前和修改后的情况.

此主题相关图片如下：capture1.bmp

 

此主题相关图片如下：capture2.bmp

谢谢,可以了.但它的各级父节点不需要修改啊,所以我把你的代码改成为样了:

 

Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim Vals() As String = e.Form.Controls("TextBox1").text.split("\")
    nd.text = vals(Vals.Length -1)

Tables("商品").Current.Save()

 

另外,如果我改的不是最低层的节点,而是中间层的,就出现表中节点不对的问题:

南京\鼓楼1
南京\鼓楼\汉口路1
南京\鼓楼\上海路
南京\鼓楼\新节点