如何排名次

最新推荐文章于 2021-12-15 12:55:10 发布

lygcw9602

最新推荐文章于 2021-12-15 12:55:10 发布

阅读量1.3k

点赞数

分类专栏：原创 vfp-自定义方法文章标签： go

本文链接：https://blog.csdn.net/lygcw9602/article/details/7200533

版权

原创同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

vfp-自定义方法

11 篇文章 0 订阅

订阅专栏

SELECT 1

use pmb

**表结构（ID N 4   ZF N 4   MC N 6）
INDEX ON ZF TAG ZF DESCENDING &&降序
copy to pmb1
SELECT 2

use pmb1

Y=1 && 分数最高者名次（mc）为1
 X=ZF
FOR I=1 TO RECCOUNT()
        GO I
        REPLACE MC WITH IIF(ZF=X,Y,RECNO())
        Y=MC
         X=ZF
ENDFOR
 
结果见下图
点击打开链接


将PMB1的MC结果转回到PMB中，代码如下

SELECT 2
FOR I=1 TO RECCOUNT()

         GO I
         SELECT 1
         REPLACE MC WITH B.MC FOR ID=B.ID
         SELECT 2
ENDFOR
SELECT 1
SET ORDER TO
GO TOP 
brow