主题：TreeView1与表中不同步

老师麻烦看看，用你的方法分组上移没反应来。

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.Index > 0 Then
If sd.Level = 0 Then
    Dim sd2 As WinForm.TreeNode = tr.Nodes(sd.Index - 1)
    Dim dr1 As DataRow = dt.Find("分类='" & sd.text & "'")
    Dim dr2 As DataRow = dt.Find("分类='" & sd2.text & "'")
    If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
        Dim d1 As Integer = dr1("父键")
        Dim d2 As Integer = dr2("父键")
        dt.ReplaceFor("父键",99999,"父键=" & d2)
        dt.ReplaceFor("父键",d2,"父键=" & d1)
        dt.ReplaceFor("父键",d1,"父键=99999")
        sd.MoveUp
    End If
End If
tr.Select

If sd.Level = 1 Then
    Dim sd4 As WinForm.TreeNode = tr.Nodes(sd.Index - 1)
    Dim dr3 As DataRow = dt.Find("分组='" & sd.text & "'")
    Dim dr4 As DataRow = dt.Find("分组='" & sd4.text & "'")
    If dr3 IsNot Nothing AndAlso dr4 IsNot Nothing Then
        Dim d3 As Integer = dr3("子键")
        Dim d4 As Integer = dr4("子键")
        dt.ReplaceFor("子键",99999,"子键=" & d4)
        dt.ReplaceFor("子键",d4,"子键=" & d3)
        dt.ReplaceFor("子键",d3,"子键=99999")
        sd.MoveUp
    End If
End If
tr.Select