- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 小技巧，重置_SortKey列的方法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29313)
-- 发布时间：2013/3/4 14:43:00
-- 小技巧，重置_SortKey列的方法
我们知道，通过常规的代码， 我们是没有办法修改_Identify、_SortKey等系统列的内容。
例如某个表启用了插入行的功能，如果在某位置插入了太多的行，最后该位置可能再也无法正常插入行，我们可以用下面的代码，重置_SortKey列的内容：
Dim drs As List(of
DataRow) = DataTables("表A").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
drs(i).BaseRow("_SortKey") = i
Next
执行上述代码后，插入行的功能即可恢复正常。
提示：
DataRow有一个BaseRow属性，返回底层的System.Data.Row对象。
-- 发布时间：2013/3/4 15:01:00
--
For i As Integer = 0 To drs.Count - 1
drs(i)("_SortKey") = i
Next
昨天我没调用baserow属性，直接上述代码修改的，不过没发现异常，不知这样做有没有弊端？
-- 发布时间：2013/3/4 15:02:00
--
你这样修改不了，值并不会改变，你可以测试一下
-- 发布时间：2013/3/4 15:15:00
--
的确是没变化，呵呵，还以为没报错就是OK了
-- 发布时间：2013/3/4 15:21:00
--
我们知道，通过常规的代码， 我们是没有办法修改_Identify、_SortKey等系统列的内容。
例如某个表启用了插入行的功能，如果在某位置插入了太多的行，最后该位置可能再也无法正常插入行，我们可以用下面的代码，重置_SortKey列的内容：
Dim drs As List(of
DataRow) = DataTables("表A").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
drs(i).BaseRow("_SortKey") = i
Next
执行上述代码后，插入行的功能即可恢复正常。
提示：
DataRow有一个BaseRow属性，返回底层的System.Data.Row对象。
-- 发布时间：2014/7/13 1:06:00
--
我一直都在找怎么把排序结果保存下来的办法，但试过你们写的这个代码，发现根本就重置不了"_sortkey"！
For Each dr As DataRow In DataTables("表A").Select("","_SortKey")
dr.BaseRow("_SortKey") = cnt
cnt = cnt + 1
Next
-- 发布时间：2014/7/13 5:34:00
--
-- 发布时间：2014/7/13 15:40:00
--
我一直都在找怎么把排序结果保存下来的办法，但试过你们写的这个代码，发现根本就重置不了"_sortkey"！
For Each dr As DataRow In DataTables("表A").Select("","_SortKey")
dr.BaseRow("_SortKey") = cnt
cnt = cnt + 1
Next
好，有心人。
-- 发布时间：2014/7/13 21:16:00
--
一楼的办法为什么不可以？
-- 发布时间：2014/7/21 20:39:00
--
这个是写在DataColChanged表事件下吗？