这种需求还是头回见
感觉需要加个字段记录原始排序位置，写程序调整已排序的相对位置

如果index 中的简单表达式 解决不了的话，就只能写代码了，增加一个 px 字段，然后通过程序确定每条记录的实际顺序，并更新到px字段中，最后 index on px  这个字段。
比如常规的 递归排序、冒泡排序  可以参考一下。

相邻分数的标准是什么

例如上图中的648和645分，来自同一班级，具体几分值没有标准

这种类似人工智能的算法在VFP中实现起来比较麻烦，需要很多IF来判断和处理。可以尝试先按照分类+班级排序，如同楼主的表，然后再用IF语句排座。

不用太纠结，可以用笨方试试，先将分数排好，结合循环+if+标记的排除法，逐行扫描，再写入新的表，先解决了问题，再来琢磨更完美的方法

实在不理解，这样的排序，有啥用处？

估计根据考试成绩排下次的考试座次，避免同班同学前后桌

*试下



SELECT * FROM PX.DBF INTO CURSOR FXCURSOR ORDER BY 总分赋分 DESC READWRITE
SELECT PX
USE

SELECT FXCURSOR
GO TOP
b1=ALLTRIM(班级)
x1=ALLTRIM(姓名)
f1=总分赋分
DELETE

IF USED('aa')
SELECT aa
USE
ENDIF
CREATE CURSOR AA(x C(10),B C(10), f n(10))
APPEND BLANK
REPLACE X WITH X1 ,b WITH b1
REPLACE f WITH f1


DO WHILE .t.

SELECT FXCURSOR
LOCATE FOR .not. b1=ALLTRIM(班级) .and. .not. delete()

IF FOUND()
    b2=ALLTRIM(班级)
    x2=ALLTRIM(姓名)
    f2=总分赋分
    f1=总分赋分
    b1=ALLTRIM(班级)
    x1=ALLTRIM(姓名)
    dele
    SELECT aa
    APPEND BLANK
    REPLACE x WITH x2,b WITH b2,f WITH f2
   
    LOOP

ELSE

LOCATE FOR .not.delete()

IF FOUND()
    b2=ALLTRIM(班级)
    x2=ALLTRIM(姓名)
    f2=总分赋分
    f1=总分赋分
    b1=ALLTRIM(班级)
    x1=ALLTRIM(姓名)
    dele
    SELECT aa
    APPEND BLANK
    REPLACE x WITH x2,b WITH b2,f WITH f2
ELSE
    exit
ENDIF


ENDIF

ENDDO

SELECT FXCURSOR
USE
SELECT aa
BROWSE