recno()返回表记录物理记录号，做索引index后记录顺序改变，这时候如果需要获取某一条记录的新顺序号，有对应函数吗？

印象中没有专用函数，不要用INDEX索引，可以用SQL SELECT 命令排序，排序后的结果你就可以获得新顺序号了。

既然用到index了，顺序号通常不多用，用的是index的关键字。

以前确实没有遇到过索引后新排序的顺序号需求，现在有一个情况就是一个表有4-5个索引，需要知道记录A在不同索引下各自的排名情况，
例：
use mytab order quan1
求记录A在表中排位
use mytab order sales1
求记录A在表中排位
等等...
用sql语句确实可以解决，如果有个函数...想省点事

做个函数吧，比如：
Function recnindex(filename,记录号)   
&& filename: 已经做索引的数据表文件名
&& 记录号=“记录A”的记录号recn()
local xretu
select &xfilename
xretu = 0
go top
do while !eof() AND recn()#记录号
    xretu = xretu + 1
    skip
enddo
retu xretu

可以了，非常感谢！！！

USE cmcode ALIAS cmcode
SEEK '51121900' ORDER cmcode
rec = RECNO()
? recnindex(rec)
? rec

SEEK '51121900' ORDER name1
rec = RECNO()
? recnindex(rec)
? rec

Function recnindex(rec)           && filename: 已经做索引的数据表文件名， rec记录号=“记录A”的记录号recn()filename,
local xretu
*!*    select &filename
xretu = 0
go top
do while !eof() .AND. recn() # rec        &&记录号
    xretu = xretu + 1
    skip
enddo
retu xretu

感谢！感谢！！

不客气，好使就行