***************************学科平均分排位
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

各位大哥帮帮忙呀，我想1-4排序，分出1234，5-58排序分出1-54，我现在是一下全排了。怎么办，要加什么？

帮个忙！！！！

就是用平均分排位和三率和排位，多的排前，问题是我现在是1-4班是A班优生要单独排，5-58班是B班另外排，怎么办？

我现在的运行程序是一下子58个班全排了。

我都是抄的代码，现在要改，不知道怎么改。
要求1-4A班单独排1234
5-58B班也要排1234一直到54

代码中怎么体现？帮帮忙呀哥哥，这才是一个学科，我有十个学科呀

太感谢了，完美解决，我搞好了！