主题：增加子节点父键要保持和已有分组不变

1、编辑目录树，请这样做

 

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

点击浏览该文件:编辑目录树例子.table

 

2、改成

 

msgbox(sd.name)

r("父键")=dt.Compute("Max(父键)","父键=" & sd.name)

 

r("父键")=dt.Compute("Max(父键)","父键 ='" & sd.parentNode.name & "'")

Dim dt As DataTable=DataTables(vars("editTable"))
Dim r As DataRow=dt.AddNew
Dim mp As String="新节点"
'目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode '当前选择的项
Dim name As String '标题
Dim Typ As String '类型
If sd IsNot Nothing Then
    If sd.Level=0 Then
        typ="新节点"
        name="分组"
    Else
        typ="新节点"
        name="名称"
    End If
Else
    name="名称"
End If
If sd Is Nothing  Then
    r("父键")=dt.Compute("Max(父键)")+1
    r("分组")="新节点"
    r("名称")="名称"
    tr.Nodes.add(r("分组"),mp)
    Dim s As String=r("名称")
    tr.SelectedNode =tr.Nodes(s)
    Return
End If
If sd.Level=0 Then
    r("父键")=dt.Compute("Max(父键)")+1
    r("分组")="新节点"
    r("名称")=""
    tr.Nodes.add(r("分组"),mp)
    Dim s As String=r("名称")
    tr.SelectedNode =tr.Nodes(s)
Else
    r("父键")=dt.Compute("Max(父键)","分组 ='" & tr.SelectedNode.ParentNode.name & "'")+1
    r("分组")= "新节点"
    r("名称")=""
    Dim mynd = tr.SelectedNode.ParentNode.Nodes.add(r("分组"),mp)
    tr.SelectedNode=mynd
End If
tr.Select

 

类似参考

 

    r("父键")=dt.Compute("Max(父键)","分组 ='" & tr.SelectedNode.ParentNode.name & "'")+1
    r("分组")= "新节点"
    r("名称")=""
    Dim mynd = tr.SelectedNode.ParentNode.Nodes.add(r("分组"),mp)
    tr.SelectedNode=mynd

    Dim r As DataRow=dt.AddNew
    If sd.Level=0 Then
        name="分组"
        typ="新节点"
        r("父键")=dt.Compute("Max(父键)","分组 ='" & sd.name & "'")
        r("分组")=sd.name
        r("名称")=typ
    End If
    dim mynd = sd.Nodes.add(r("分组"),mp)
    sd.Expand
    tr.SelectedNode = mynd
    tr.Select

改成
 
    Dim r As DataRow=dt.AddNew
    If sd.Level=0 Then
        name="分组"
        typ="新节点"
        r("父键")=dt.Compute("Max(父键)","分组 ='" & sd.name & "'")
        r("分组")=sd.name
        r("名称")=typ
    End If
    dim mynd = sd.Nodes.add(r("名称"),mp)
    sd.Expand
    tr.SelectedNode = mynd
    tr.Select

 

方法一：重新buildtree。

 

方法二：一般不是选的节点后，右边才显示？修改右边（datacolchanged）事件，把选定的节点的text修改一下即可。

哎，你好好弹出值看一下吧

 

For Each sd As  WinForm.TreeNode In tr.AllNodes

    msgbox(sd.name & "   " & sd.fullName)

Next