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

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

可以了，非常感谢！！！

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

感谢！感谢！！