主题：如何固定目录树中节点的位置

各位老师，

我在流程设置的目录树中增加了表单的流程，确定后设置是保存在表中的，保存前的顺序如上下图

此主题相关图片如下：qq截图20120908001.jpg

 
此主题相关图片如下：qq截图20120908143902.jpg

下次重新打开时流程显示的顺序却改变了，请问要固定流程的顺序是不是表中还要增加一列顺序列？

代码要怎么写？

谢谢！

好的，谢谢二位，我琢磨琢磨看能不能搞定

谢谢！

再请教一下狐爸，换上下两个节点对应的行的_SortKey值的代码要怎么写啊？

谢谢！

我用了如下代码：没有什么出错提示，

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd.Level = 1 Then
    If nd IsNot Nothing Then
       
        Dim id As Integer = nd.index
        Dim nd2 As WinForm.TreeNode
        nd2 = nd.ParentNode.Nodes(id-1)
        Dim dr1 As DataRow = DataTables("单据流程").Find("表名 = '" & nd.ParentNode.text & "' And 流程 = '" & nd.text & "'")
        Dim dr2 As DataRow = DataTables("单据流程").Find("表名 = '" & nd2.ParentNode.text & "' And 流程 = '" & nd2.text & "'")
        If dr1 IsNot Nothing And dr2 IsNot Nothing Then
            MessageBox.Show(dr1("_SortKey"))
            MessageBox.Show(dr2("_SortKey"))
            Dim v As Integer
            v = dr1("_SortKey")
            dr1("_SortKey") = dr2("_SortKey")
            dr2("_SortKey") = v
        End If
        MessageBox.Show(dr1("_SortKey"))
        MessageBox.Show(dr2("_SortKey"))
        nd.MoveUp()
    End If
End If
tr.Select

用MessageBox.Show(dr1("_SortKey"))
   MessageBox.Show(dr2("_SortKey"))两次显示交换产后的值

但为什么移动后两个节点对应行的“_SortKey”并没有交换，？

谢谢！

改了还是不可以，"_SortKey"的值也没有交换

此主题相关图片如下：360截图20120910-006.jpg

两次显示的都一样，没有交换过来