主题：通过筛选树找项目

参考代码

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String = "专业编号 = '" & dr("专业编号") & "'"
e.form.controls("table1").Table.filter = filter

新增的时候，工程名称赋值要唯一，如

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd IsNot Nothing Then
    If nd.Level = 2 Then
        MessageBox.Show("请选择单位工程再新建专业工程!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Dim pr As DataRow = DataTables("项目结构").find("_Identify = " & nd.tag)
        Dim dr As Row = Tables("项目结构").AddNew()
        dr("项目编号") = pr("项目编号")
        dr("工程名称") = pr("工程名称")
        dr("单位工程") = "单位工程" & dr("_Identify")
        Dim bh As String= DataTables("项目结构").Compute("max(专业编号)","项目编号 = '" & pr("项目编号") & "' and 专业编号 like '" & pr("项目编号")  & "-%'")
        Dim id As Integer = 1
        If bh > "" Then
            id = cint(bh.SubString(pr("项目编号").Length + 1,2)) + 1
        End If
        dr("专业编号") = pr("项目编号") & "-" & Format(id,"00")
        If nd.Level = 0
            nd = nd.Nodes.Add("单位工程","单位工程" & dr("_Identify"))
        ElseIf nd.Level = 1
            nd = nd.ParentNode.Nodes.Add("单位工程", "单位工程" & dr("_Identify"))
        End If
        nd.tag = dr("_Identify")
        trv.SelectedNode = nd
        trv.Select()
        trv.BeginEdit()
    End If
End If

同理啊，赋值的名称不能一样

nd = nd.Nodes.Add("专业工程", "专业工程" & dr("_Identify"))

dr("专业工程") = "专业工程" & dr("_Identify")

1、新增的节点，重命名，肯定没问题。

2、旧节点重命名的时候，节点名称相同的都会被重命名，这个是一定的。

 你的截图，没看懂你什么意思。

 你筛选的逻辑是什么，根据什么逻辑筛选数据？上传对应例子测试。