5楼的朋友，我试着还是不行

我的想法是首先计算出满足的学制和专业人数赋值给a,再定义一个变量pic让它等于a%50，若小于等于50人分一个班，大于50人再进行下面分班，思路有就是代码不太对，请大家帮忙看看！！！
STORE 0 to a
COUNT for xz=ALLTRIM() and zymc=ALLTRIM() to a
pic=a%50         
IF pic<=1
replace bj with ALLTRIM()+"班"
ELSE   pic>1
do while .T.
   for n=1 to pic
      replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(n))+"班"
      SKIP
      if eof()
        return
      endif
   ENDFOR
    for m=pic to 1 step -1
      replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(m))+"班"
      SKIP
      if eof()
        return
      endif
   ENDFOR
ENDDO
ENDIF

我记得count for 命令后指针会到文件尾的


n=1
i=1
GO top
SCAN FOR NOT EOF()
    IF i<=50
        IF xz=ALLTRIM() and zymc=ALLTRIM()
            replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(n))+"班"
            i=i+1
        ENDIF
    ELSE
        n=n+1
        i=1
    endi
ends

[ 本帖最后由 sxy166 于 2012-5-29 15:31 编辑 ]

没有测试表，一切都是无用功。

13楼的朋友有点问题我上传一个附件，大家看一下

生成的班级第五十个是空的，每个班都一样

我做的数据库，请大家帮忙改正

[ 本帖最后由 lifeng123 于 2012-6-1 09:58 编辑 ]

表与表之间都有什么关系，各个表都是什么意思，分班原则是什么

n=1
i=0
GO top
SCAN FOR NOT EOF()
    IF xz=ALLTRIM() and zymc=ALLTRIM()
        replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(n))+"班"
          i=i+1
    ENDIF
   
    IF i=50
        n=n+1
        i=0
    endi
ends

能计算出满足的学制和专业人数，正如13楼的朋友所说count for指针会到文件尾，这时候如何给它赋值？
set filter to xz=alltrim() and zymc=ALLTRIM()
locate for xz=alltrim() and zymc=ALLTRIM()
STORE 0 to a
COUNT for xz=ALLTRIM() and zymc=ALLTRIM() to a
a=a%50
IF a<=1
   IF xz=ALLTRIM() and zymc=ALLTRIM()
      replace bj with ALLTRIM()+"班"
   endif
ELSE   a>1
   IF xz=ALLTRIM() and zymc=ALLTRIM()
    do while .T.
        for n=1 to a
          replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(n))+"班"
          SKIP
          if eof()
          return
          endif
       ENDFOR
      for m=a to 1 step -1
          replace bj with ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(m))+"班"
          SKIP
         if eof()
         return
        endif
    ENDFOR
  ENDDO
  ENDIF
ENDIF