下面有二个prg
a.prg运行结果是正确的.它更新用的VFP9的语句。
SELECT xh,xm,tot1,mch FROM bmk0651 ORDER BY  tot1  DESC INTO table btmp1   &&按分数降序
SELECT *,RECNO() AS rcn FROM btmp1 INTO TABLE  btmp2  &&根据上面分数降序排列后产生记录号字段
UPDATE btmp1 SET mch=STR(btmp2.rcn,5) FROM btmp2 WHERE btmp2.tot1=btmp1.tot1  &&修改btmp1 中 mc=rcn 条件是用替换库的分数=原库的分数。因替换库(btmp2)中它的记录号在前必来替换前一个记录号。
SELECT * FROM btmp1 ORDER BY mch INTO table mck
select mck
brow
a的结果图：
[attach]75369[/attach]

-------------------------------------------------------------
b.prg前面照抄，更新中用VFP6，加scan--endscan
SELECT xh,xm,tot1,mch FROM bmk0651 ORDER BY  tot1  DESC INTO table btmp1   &&按分数降序
SELECT *,RECNO() AS rcn FROM btmp1 INTO TABLE  btmp2  &&根据上面分数降序排列后产生记录号字段
clear all
use btmp2

scan
 update btmp1 set btmp1.mch=str(btmp2.rcn,5) where btmp1.tot1=btmp2.tot1
endscan
SELECT * FROM btmp1 ORDER BY mch INTO table mck
select mck
brow
b的结果图
[attach]75370[/attach]
从第5名后面应是2个第6名，2个第9名应是第8名，等等。。几个相同成绩的最后一个人记录号来替换，不是几个相同成绩的第一个人记录号来替换，有否办法能用第一个人记录号来替换？
b.prg中更新代码错在哪里？请指教。附原表及有关内容

[ 本帖最后由 sylknb 于 2014-3-30 17:55 编辑 ]

SELECT xh,xm,tot1,mch FROM bmk0651 ORDER BY  tot1  DESC INTO table btmp1   &&按分数降序


SELECT *,RECNO() AS rcn FROM btmp1 INTO TABLE  btmp3  &&根据上面分数降序排列后产生记录号字段
SELECT tot1,MIN(rcn) rcn FROM btmp3 GROUP BY tot1 ORDER BY rcn INTO dbf btmp2 
CLOSE all
use btmp2

SCAN


 update btmp1 set btmp1.mch=str(btmp2.rcn,5) where btmp1.tot1=btmp2.tot1
endscan
SELECT * FROM btmp1 ORDER BY mch INTO table mck

select mck
brow

太谢了，我也想到用一个中间库，找出最小的记号，但代码一直写不对，原来把总分相同的找出最小记录号。太妙了。

红字显示的代码，运行速度不是太理想的，建议改一下
这种算名次的方法也不错，易于理解，易掌握
查询过程中产生的表，建议用临时表(INTO CURSOR T)，不要用自由表(INTO TABLE、INTO DBF，理由：这种表产生后最后都是保存在硬盘上的，给文件管理造成麻烦，长期下去，就不知道这些表是否有用)

SELECT XH,XM,TOT1 FROM BMK0651 ORDER BY  TOT1  DESC INTO CURSOR BTMP1 &&按分数降序
SELECT *,RECNO() AS RCN FROM BTMP1 INTO CURSOR  BTMP3  &&根据上面分数降序排列后产生记录号字段
SELECT TOT1,MIN(RCN) RCN FROM BTMP3 GROUP BY TOT1 ORDER BY TOT1 DESC INTO CURSOR BTMP2 
SELECT B.XH,B.XM,A.TOT1,TRANSFORM(A.RCN,'99999') MCH FROM BTMP2 A INNER JOIN BTMP1 B ON B.TOT1=A.TOT1 INTO CURSOR BTMP3 && 此处用两表关联的方法，产生了一个临时表BTMP3，速度很理想，你可以试试
BROWSE 

上面只是本人的一些建议，仅供参考。

建议很好

太好了。很快。

我理解是scan逐行扫描，同分的用后面替换了前面的所以，名次大的覆盖了名次小的

牛，思路太重要了