各位老师，

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

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

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

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

代码要怎么写？

谢谢！

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("你的表", "表名|流程", "", "表名,[_Identify]")

用_Identify没有办法调整位置，最好启用了插入行的功能，那么就可以：

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("你的表", "表名|流程", "", "表名,[_SortKey")

你窗口中的上移下移按钮，还得交换上下两个节点对应的行的_SortKey值。

看看这里，有个Sort参数，很多人都忽略了，连我找个写帮助的人也忽略了：

http://www.foxtable.com/help/topics/0893.htm

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

谢谢！

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

谢谢！

假定要交换dr1和dr2两行的SortKey的值

dim v as decimal

v = dr1("_SortKey")

dr1("_SortKey") = dr2("_SortKey")

dr2("_SortKey") = v

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

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”并没有交换，？

谢谢！

Dim v As Integer

改为：

Dim v As Decimal