班级名称就是按照这个制定的专业名称+学制+n班

没有分出具体是几班来

比方说会计电算化5年178人，要求按照50人左右分班，178人应该分4个班，现在只分到2014级会计电算化5年班这种程度。

我上传一下源程序你看一下

[ 本帖最后由 lifeng123 于 2015-2-10 10:57 编辑 ]

结果一样

你加我qq53492187，我把源文件给你发过去

带身份证号的源文件

[ 本帖最后由 lifeng123 于 2015-2-10 10:57 编辑 ]

两个问题
1，分出班来了，可是它不是按1234，4321这种蛇型排序的，只是简单的按总数除以50得到的班级
2，还有就是男女生比例没有分出来

SELECT fb
a=messagebox("真的要分班吗?",4+32+256,"系统提示")
IF a=6
GO top
*       set filter to xz=alltrim() and zymc=ALLTRIM()
*       locate for xz=alltrim() and zymc=ALLTRIM()
       COUNT for xz=ALLTRIM() and zymc=ALLTRIM() to a
       a=iif(a%50>0,int(a/50)+1,a/50)
          IF a<=1
              replace bj with "2014级"+ALLTRIM()+alltrim()+"年"+"班" for xz=ALLTRIM() and zymc=ALLTRIM()
          ELSE   
             set filt to xz=ALLTRIM() and zymc=ALLTRIM()
             go top   
             do while .T.
             for n=1 to a
             replace bj with "2014级"+ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(n))+"班"
          SKIP
          if eof()
          return
          endif
       ENDFOR
      for m=a to 1 step -1
          replace bj with "2014级"+ALLTRIM()+alltrim()+"年"+ALLTRIM(STR(m))+"班"
          SKIP

         if eof()
         return
        ENDIF

    ENDFOR
  ENDDO

  ENDIF
    MESSAGEBOX("分班成功！",0+48,"系统信息")
  ENDIF
UPDATE stu SET stu.bj=fb.bj from fb WHERE stu.sfzh=fb.sfzh
thisform.Refresh


这个是之前按combo1专业名称，combo2学制做的

这个倒是可以就是一项一项选太麻烦