以下是引用sdta在2014-3-14 19:35:43的发言：

* 不同分数段人数统计，分数为整数
* 测试表
CREATE CURSOR CJK (CJ N(3))
INSERT INTO CJK VALUES (15)
INSERT INTO CJK VALUES (28)
INSERT INTO CJK VALUES (35)
INSERT INTO CJK VALUES (8)
INSERT INTO CJK VALUES (2)
INSERT INTO CJK VALUES (4)
INSERT INTO CJK VALUES (9)
INSERT INTO CJK VALUES (64)
INSERT INTO CJK VALUES (75)
INSERT INTO CJK VALUES (65)
INSERT INTO CJK VALUES (125)
INSERT INTO CJK VALUES (115)
INSERT INTO CJK VALUES (27)
INSERT INTO CJK VALUES (88)
 
SELECT MIN(CJ) CJ1,MAX(CJ) CJ2 FROM CJK INTO ARRAY ACJ
* 获取最低分及最高分
NMIN=ACJ(1,1)
NMAX=ACJ(1,2)
* 如果设置10分为一个分数段
NUM=10 && 此处可以改为任意数值
NMIN=FLOOR(NMIN/NUM)*NUM   && 最低分数段的开始分
NMAX=IIF(MOD(NMAX,NUM)=0,(CEILING(NMAX/NUM)+1)*NUM,CEILING(NMAX/NUM)*NUM) && 最高分数段的终止分
 
* 分数段生成
CREATE CURSOR FSD (FS1 N(3),FS2 N(3)) && 保存分数段的临时表
FOR I=NMIN TO INT(NMAX/NUM)-1
    IF I=NMIN
       INSERT INTO FSD VALUES (I,(I+1)*NUM-1)
    ELSE
       INSERT INTO FSD VALUES (NUM1,(I+1)*NUM-1)
    ENDIF
    NUM1=(I+1)*NUM
ENDFOR
SELECT *,000 RS FROM FSD WHERE .F. INTO CURSOR CJTJ READWRITE && 保存统计结果的临时表
SELECT FSD
SCAN
   INSERT INTO CJTJ SELECT FSD.FS1,FSD.FS2,COUNT(*) RS FROM CJK WHERE BETWEEN(CJK.CJ,FSD.FS1,FSD.FS2)
ENDSCAN
SELECT CJTJ
BROWSE

以下是引用sylknb在2014-3-17 09:35:13的发言：

 INSERT INTO CJTJ SELECT FSD.FS1,FSD.FS2,COUNT(*) RS FROM CJK WHERE BETWEEN(CJK.CJ,FSD.FS1,FSD.FS2)
上述语句如何修改能在VFP6下运行？

以下是引用sylknb在2014-3-17 11:45:50的发言：

SELECT FSD.FS1,FSD.FS2,COUNT(*) RS FROM CJK WHERE BETWEEN(CJK.CJ,FSD.FS1,FSD.FS2) INTO TABLE ABC
USE CJTJ
APPEND FROM ABC
USE IN ABC
ERASE ABC.DBF
运行结果是　cjtj中没有内容。

以下是引用TonyDeng在2014-3-17 11:00:36的发言：

勸不聽的，到現在還死守VFP6，不是做事的，是應考的。