help!分层次排位问题（1-4班单独排，5-58班排）
***************************学科平均分排位
yw.zip
(2.96 KB)
USE yw &&打开文件
INDEX on -学科平均分 TO sy_pjf &&学科平均分从大到小排列
GO TOP &&定位到第一第
n平均排位 = 1 &&平均排位,记号,从1 到 N 不重复
n学科平均分 = 0 &&用来存上一条记录的学科平均分,
DO whil !EOF()
IF n学科平均分 = yw.学科平均分 &&判断与上一条的学科平均分是否一样
REPLACE yw.平均排位 WITH yzh_mc &&如果一样,用上次条记录的平均排位 替换这条记录的平均排位
ELSE
REPLACE yw.平均排位 WITH n平均排位 &&否则 用 '平均排位,记号,从1 到 N 不重复' 来替换
ENDIF
yzh_mc = yw.平均排位 &&存下这条记录的平均排位,
n学科平均分 = yw.学科平均分 &&和学科平均分 ,用于下条记录的判断
n平均排位 = n平均排位 +1 &&'平均排位,记号,从1 到 N 不重复' +1
SKIP &&下一条
ENDDO
***************************三率和排名
USE yw &&打开文件
INDEX on -三率和 TO sy_slh &&三率和从大到小排列
GO TOP &&定位到第一第
n三率和排位 = 1 &&三率和排位,记号,从1 到 N 不重复
n三率和 = 0 &&用来存上一条记录的三率和,
DO whil !EOF()
IF n三率和 = yw.三率和 &&判断与上一条的三率和是否一样
REPLACE yw.三率和排位 WITH yzh_mc &&如果一样,用上次条记录的三率和排位 替换这条记录的三率和排位
ELSE
REPLACE yw.三率和排位 WITH n三率和排位 &&否则 用 '三率和排位,记号,从1 到 N 不重复' 来替换
ENDIF
yzh_mc = yw.三率和排位 &&存下这条记录的三率和排位,
n三率和 = yw.三率和 &&和三率和 ,用于下条记录的判断
n三率和排位 = n三率和排位 +1 &&'三率和排位,记号,从1 到 N 不重复' +1
SKIP &&下一条
ENDDO
INDEX on 班级 TO bj_sx &&班级从大到小排列
endif
