学制    专业    人数    男生    女生    男生走读    女生走读
2    会计    4    4    0    3    0
3    电子商务    19    12    7    0    1
3    工程造价    28    23    5    3    0
3    会计电算化    129    29    100    3    10
3    计算机平面设计    72    40    32    8    3
3    汽车运用与维修    92    92    0    13    0
3    铁道运输与管理    126    44    82    9    11
3    物流服务与管理    17    12    5    1    0
5    电子商务    50    31    19    5    4
5    工程造价    51    30    21    8    4
5    会计电算化    178    33    145    3    17
5    计算机平面设计    141    62    79    7    18
5    物流服务与管理    35    21    14    4    3


我已经统计好各专业学制人数，我想
当学制等于3年时，按照50人一班分，班级名称“专业名称”+“学制”年+（n）班
我想用repl all班级名称 with “专业名称”+“学制”+"年+alltrim(str(n))+“班”  说不对，应该怎么改
谢谢大家了

SELECT fb
a=messagebox("真的要分班吗?",4+32+256,"系统提示")
IF a=6
GO top

    MESSAGEBOX("分班成功！",0+48,"系统信息")
       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 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 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
UPDATE stu SET stu.bj=fb.bj from fb WHERE stu.sfzh=fb.sfzh
thisform.Refresh

combo2专业名称
combo1学制

我现在不想用combox控件，想直接提取字段内容命名

n代表班级，会计电算化5年1班，会计电算化5年2班

学制是字符型

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

没有分出具体是几班来

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

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

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

结果一样