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

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

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

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

_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"))