我简单的做了一个分班系统，每次运行都提示程序错误，“已到文件尾”，怎么改？
SELECT fb
a=messagebox("真的要分班吗?",4+32+256,"系统提示")
IF a=6
set filter to xz=alltrim() and zymc=ALLTRIM()
locate for xz=alltrim() and zymc=ALLTRIM()

GO top
do while not eof()
   for n=1 to 10
      replace bj with ALLTRIM()+ALLTRIM(STR(n))
      SKIP
   endfor
    for m=10 to 1 step -1
      replace bj with ALLTRIM()+ALLTRIM(STR(m))
      SKIP
   endfor
ENDDO
   MESSAGEBOX("分班已完成！",64,"系统信息")
   thisform.Release
ELSE
thisform.release

ENDIF

在DO whil ……enddo 中以到表尾结束。
在2个FOR……ENDFOR中是每次二十个，而表的记录数不是20的倍数，所以出现你说的问题。
我这样说不知道你理解没有？

举个简单的例，表中有36条记录
循环从头走到ENDDO一轮，针到21号，进入2轮，上一个FOR走完，走下一个FOR时，循环未走完，指针到表尾了，于是出错了

do while not eof()把这个改一下

改为
GO top
do while .T.
   for n=1 to 10
      replace bj with ALLTRIM()+ALLTRIM(STR(n))
      SKIP
      if eof()
        exit
      endif
   endfor
    for m=10 to 1 step -1
      replace bj with ALLTRIM()+ALLTRIM(STR(m))
      SKIP
      if eof()
        exit
      endif
   endfor
ENDDO

指针每走一步，都进行一次判断，是表尾就跳出循环。

谢谢！受益匪浅！！！

我想按照50人一个班分，怎么办？不足50人单独分班。

我的思路
STORE 0 to abc   
COUNT for xz=ALLTRIM() and zymc=ALLTRIM() to abc    *首先统计满足的学制、专业人数，例如三年会计电算化多少人
DO case
   CASE abc<=50     *如果人数小于等于50人
       replace bj with ALLTRIM()+ALLTRIM()   
   CASE abc>50     *如果人数大于50人，按50人一个班进行分班，这一步我不太会，请教大家一下！！！
  do while .T.
   for n=1 to 10
      replace bj with ALLTRIM()+ALLTRIM()+ALLTRIM(STR(n))
      SKIP
      if eof()
        exit
      endif
   endfor
    for m=10 to 1 step -1
      replace bj with ALLTRIM()+ALLTRIM()+ALLTRIM(STR(m))
      SKIP
      if eof()
        exit
      endif
   endfor
ENDDO
ENDCASE

关键在于你的系统是如何设计的，有时候多增加一个辅助用数据表，可以减少不少编程工作量，使代码一目了然。根据分班原则，编制出符合实际情况的代码。