程序感觉很乱，不是很清楚你的需求，只能提几个小意见：
1、程序中完全没有用到索引？
2、不要用LOCATE命令，这个没有用到索引，如果使用这种传统命令好象应该使用FIND和SEEK（前提是先对搜索条件建立索引）；
3、不要用SORT命令，这个会复制一次表文件（而且是每条记录都要来一次）

猜想你的目的是要获得某种排名，不过似乎不用这么复杂吧，建议参考一下本人的这个帖子，一个命令实现排名次

http://bbs.pfan.cn/post-279288.html