有成绩库，如何制作一个和上图类似的一分一档表。

[此贴子已经被作者于2019-9-11 11:03编辑过]

数据表的命名要用字母开头才好

用EXCEL，非常方便

[此贴子已经被作者于2019-9-11 13:46编辑过]

谢谢，EXCEL的已经弄好。
想知道怎么用VFP本身的程序设计来完成。

好的，测试了一下，目标实现，感觉运行了好几秒的时间完成。
达到这个要求，程序是不是有多种写法？
用什么scan...endscan,或者do....enddo,应该都能解决是吗？




用这个，FOR i=594 TO 1 STEP -1
就会每一个分数都有 594.593.592.591......，
但是考试时，有的分数是没有人的，比如没有考593分的学生，成绩库(cjk)中，并没有这个分数，这个593分也显示为第2名。
当然，这个也可最后将“同分人数=0”的，PACK掉。


有什么办法，不生成新表，直接在原表cjk中，生成这些数据，替换到相应字段？



麻烦老师看一下加的备注，这样理解对吗？

[此贴子已经被作者于2019-9-11 17:07编辑过]

CLOSE DATABASES 
SELECT MIN(总分) nmin, MAX(总分) nmax FROM cjk INTO ARRAY afs
CREATE CURSOR tj (分数段 n(5), 人数 n(4), 累计人数 n(4))
FOR i = afs[1, 2] TO afs[1, 1] STEP - 1
    INSERT INTO tj (分数段) VALUES (i)
ENDFOR
INDEX ON 分数段 TAG fsd
SELECT cjk 
BROWSE 
SET RELATION TO 总分 INTO tj
SCAN 
    REPLACE 人数 WITH 人数 + 1 IN tj 
ENDSCAN
SET RELATION TO 
SELECT tj
SET ORDER TO 
nCnt = 0
SCAN 
    nCnt = nCnt + 人数
    REPLACE 累计人数 WITH nCnt
ENDSCAN
BROWSE 

结果

谢谢sdta老师，明天测试学习一下了。

这位朋友可能没有创作过运行时间较长的程序代码
很多时间，因为运行时间长，所以窗口上要放置
［进度条］
我如今运行的许多程序至少要2分钟才能结束，
主要的原因是数据多。
说以上的话，是告诉朋友，不必要顾及程序运行时间
只要是能够运行正确的代码，就叫［好代码］