如何按班级层次排序?帮帮忙
1-10班一个层次排序,11-58班一个层次排序,要排平均分和三率和。我现在的代码只能全部排
代码如下:
程序代码:
USE yw &&打开文件 SET ORDER TO 平均分 &&学科平均分从大到小排列 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 &&打开文件 SET ORDER TO 三率和 &&三率和从大到小排列 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 SET ORDER TO 班级 &&班级从大到小排列
yw.rar
(2.33 KB)