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

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

 

 

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

 

dim v as decimal

v = dr1("_SortKey")

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

dr2("_SortKey") = v

 

呵呵，是的，不过这个他应该能搞定的，因为一楼的图片表明他都设计好了授权窗口的。

Dim v As Integer

 

改为：

 

Dim v As Decimal

_Sorkey是系统列，不能直接设置其值，参考

 

Dim dr1 As DataRow = DataTables("表A").datarows(0)
Dim dr2 As DataRow = DataTables("表A").datarows(1)
MessageBox.Show("之前:" & dr1("_SortKey") & "|" & dr2("_SortKey"))
Dim v As Decimal
v = dr1("_SortKey")
dr1.baserow("_SortKey") = dr2.baserow("_SortKey")
dr2.baserow("_SortKey") = v
MessageBox.Show("之后:" & dr1("_SortKey") & "|" & dr2("_SortKey"))