老师，麻烦看看，窗口：导航维护，增加项、增加子项时，TreeView1的节点怎么让它和导航表同步。

老师，增加项后，修改了分类名称，TreeView1增加的节点名称没有修改。增加子项后，新增加的子项也不是当前节点，与导航表中的行也没对应上。

增加项修改为这样：

Dim dt As DataTable=DataTables(vars("editTable"))
Dim r0 As Row =Tables(vars("editTable")).Current
Dim r As DataRow=dt.AddNew
r("序号")=dt.sqlCompute("Max(序号)")+1
\'目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode \'当前选择的项
Dim typ As String = "新分类" \'分类
r("父键")=dt.sqlCompute("Max(父键)")+1
r("分类")= typ & r("序号")
Dim n = tr.Nodes.add(r("分类"))
Dim s As String=r("分类")
tr.SelectedNode =tr.Nodes(s)
sd.Expand
r.Save

修改了分类名称，TreeView1增加的节点名称修改过来了，但是点击其他节点在点击这个新增加节点，节点与新增加的行又对应不上了，麻烦看看TreeView1中AfterSelectNode事件代码哪儿不对呢。

老师，修改了还是与新增项一样，节点修改后，我点其他节点后再点刚修改的节点，还是没定位到导航表对应的行。

老师，这样修改对了：

        Dim r As Integer
        r = Tables(vars("editTable")).FindRow("[分类] Like \'" & e.Node.text & "\'") \'从第一行开始查找
        If r >= 0 Then \'如果找到的话
            Tables(vars("editTable")).Position = r \'定位到找到的行.
        End If

老师，麻烦看看上移按钮，我集合有点弄得混乱了，我上移项目管理后，导航表中没有把所有项目管理的父键变为 2 ，

此主题相关图片如下：qq截图20190925140257.png

代码如下：

Dim dt As DataTable=DataTables(vars("editTable"))
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode \'当前选择的项
If sd Is Nothing Then Return
Dim i As Integer= sd.Index
Select Case sd.level
    Case 0
        If i>0 Then
            Dim r As  List(of  DataRow)= dt.Select("分类=\'" & sd.text & "\'")
            If r Is Nothing Then Return
            For Each dr2  As DataRow In r
                Dim sd1 As WinForm.TreeNode=tr.Nodes(i-1)
                Dim r1 As List(of DataRow)= dt.Select("分类=\'" & sd1.text & "\'")
                For Each dr1  As DataRow In r1
                    Dim s As Integer = dr1("父键")
                    dr1("父键")=dr2("父键")
                    dr2("父键")=s
                Next
            Next
        End If
        sd.MoveUp
        tr.Select
End Select

通过导航维护窗口，上移按钮，移动节点，导航表中对应分类父键相应改变。

同级别节点上下交换顺序