以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请老师帮忙看看这段代码，排序后保存的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103163)
--  作者：fntfgz
--  发布时间：2017/7/1 17:44:00
--  请老师帮忙看看这段代码，排序后保存的
老师，我把一个表排序按一个字段进行排序后，我想把这个排序结果保存下来，我用下面的代码来保存排序结果，但是保存以后，重启程序之后，原来的第一条记录还在第一位
我把这个表导来了，看了一下_Sortkey，前两个记录的值都为0
Dim bm As String=CurrentTable.Name
For Each r As Row In Tables(bm).rows
    r("_Sortkey") = r.index
Next


请老师，看看我是哪里的问题，怎么解决？
[此贴子已经被作者于2017/7/1 17:44:13编辑过]
--  作者：有点蓝
--  发布时间：2017/7/1 17:48:00
--  
是不是没有全部加载

CurrentTable.Filter = ""
Dim bm As String=CurrentTable.Name
For Each r As Row In Tables(bm).rows
    r("_Sortkey") = r.index
Next