表索引后新的记录顺序号函数 - 编程论坛

#2

sdta2023-01-26 19:36

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

#3

吹水佬2023-01-26 19:50

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

#4

igaoyuan2023-01-26 20:15

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

#5

laowan0012023-01-26 20:31

做个函数吧，比如：
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

#6

igaoyuan2023-01-26 21:05

可以了，非常感谢！！！

程序代码：

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

#7

igaoyuan2023-01-26 21:06

回复 5楼 laowan001

感谢！感谢！！

#8

laowan0012023-01-26 21:39

回复 7楼 igaoyuan

不客气，好使就行