现有表文件cj.dbf,如何统计最优学科、最次学科及每个学生各科成绩排名（见下图）
请高手赐教，万分感谢！！！

[此贴子已经被作者于2023-3-14 15:29编辑过]

见 https://bbs.bccn.net/thread-511509-1-1.html 5楼代码

楼主的问题，参考自己发过的贴改进一下，99%都应该可以解决。
尤其是这类问题，大都存在不确定性，最好自己多练习总结一下。否则，说不定情况有变，不可能都找到人家帮忙。

[此贴子已经被作者于2023-3-14 16:06编辑过]

可以参考sdts的帖子：https://bbs.bccn.net/thread-511509-1-1.html

是这样的吗？不知对否？

[此贴子已经被作者于2023-3-14 16:55编辑过]

@schtg 正是我想要的结果！不知能提供具体代码供学习吗？

USE cj
CREATE CURSOR ls (xm c(8),cjj n(4))
SELECT 1

SCAN
    FOR  i=3 TO 10
    aa1=field(i)
    aa2=&aa1
    INSERT INTO  ls VALUES (aa1,aa2)
    ENDFOR

    SELECT * FROM ls ORDER BY cjj DESC INTO CURSOR lsa
    SELECT lsa
    GO 1
    REPLACE 最优学科 WITH allt(lsa.xm)-':'+allt(STR(lsa.cjj)) IN 1
    GO bott
    REPLACE 最次学科 WITH allt(lsa.xm)-':'+allt(STR(lsa.cjj)) IN 1

tt=''
    SCAN
    tt=tt+IIF(LEN(tt)=0,'','*')+allt(lsa.xm)+' : '+allt(STR(lsa.cjj))

    ENDSCAN
     REPLACE 成绩排名 WITH tt IN 1
     
     SELECT ls
     zap
     SELECT 1
ENDSCAN
CLOSE ALL

谢谢！！！

@schtg 为什么运行上述程序反复出现下列提示？表中共3条记录，程序运行出现了3次提示。不知为何？盼指点！

 

选是就可以，或程序第一行加上set safe off，在最后一行加上set safe on