能否把数据贴出来，程序并不复杂！

请按名次1、2、3、4、5、6、7、8、9、10,20、19、18、17、16、15、14、13、12、11，......蛇形循环分成10个班 ，谢谢!

[ 本帖最后由 五毒外星人 于 2014-8-22 12:47 编辑 ]

笨办法
copy to b1 for (名次>=1 .and. 名次<=10 ) .or. (名次>=100 .and. 名次<=110) .or. (名次>=200 .and. 名次<=210)  .or. ( 名次>=300 .and. 名次<=310) .or. ( 名次>=400 .and. 名次<=410)
copy to b2 for (名次>=11 .and. 名次<=20 ) .or. (名次>=111 .and. 名次<=120) .or. (名次>=211 .and. 名次<=220)  .or. ( 名次>=311 .and. 名次<=320) .or. ( 名次>=411 .and. 名次<=420)
。。。
。。。
十条语句 十个班级

Select *,Space(2) bz From 分班 Into Cursor Temp Readwrite 
cStr='0102030405060708091010090807060504030201'
For lnI=1 To Reccount()
    Go lnI
    Replace Bz With Substr(cStr,Iif(Mod(lnI,20)=0,20,Mod(lnI,20))*2-1,2)
Endfor 
*Browse 
Select * From Temp Order By Bz 

CREATE CURSOR TB (姓名 C(10), 名次 I, 班次 I)
APPEND FROM 分班.dbf
_S形分班(10)
GO TOP
BROWSE
RETURN

FUNCTION _S形分班(n班数)
    LOCAL n班次, a班次[n班数*2]
    FOR i =1 TO n班数
        a班次[i] = i
        a班次[n班数*2+1-i] = i
    ENDFOR
    n班次 = 1
    SCAN
        REPLACE 班次 WITH a班次[n班次]
        n班次 = IIF(n班次 < n班数*2, n班次 + 1, 1)
    ENDSCAN
ENDFUNC

测试可行

在这里跪谢各位高手大侠了！