主题：[求助]自动分班系统的新问题，赐教

egd文件下载

上面的程序是我用“易海拾贝”里的自动分班系统（原来只支持分六个班），改成最多能支持分16个班的程序。

改后是能支持分16个班，但有个问题：当它分班超过10个班以后，比如分成11个班，数据里有些人就不能分了。我的上面这程序数据有794人，但它分成11个班时它只用了六百来人分成11个班。赐教各位高手，哪里出问题了？（这程序我估计哪里限制了，可能只能分10个班，超过10个班有些数据它就不计到里面了）

egd文件下载

谢谢wjq1072 总版，用您的程序用我的794条数据试了，最多能分20个班，而且每次按分班按扭后随机产生不同的分班结果，这样可以给用户选一个自己认为满意的结果，太好了，完全满足了要求！只是看到：
If([%班数%] > [%人数%],MsgBox("班级数都超过总人数啦!怎么分？",0) And SetLabel("  ","请填上班级数") And SetLabel(" ","再点击自动分班按钮即可"),If([%班数%] <= 1,MsgBox("搞什么搞!这叫分班吗？",0) And SetLabel("  ","请填上班级数") And SetLabel(" ","再点击自动分班按钮即可"),ClearGrid("分班情况") And AddRows("分班情况",[%班数%]-1) And EvalFor("分班情况","班级","Row") And RecalcCol("随机数") And SortCol("随机数",1) And SortCol("总分",1) And SortCol("性别",1) And evalfor(grid,"班级","Mod(Row,[%班数%])+1") And SortCol("XJID",1) And SortCol("班级",1) And RecalcGrid("分班情况") And SetFocus("分班情况") And SetLabel(" ","新分"+Text([%班数%])+"个班级情况如下：") And SetLabel("  ","总人数："+Text([%人数%]))))
这语句还是有些晕，看来还要加强学习才行，再次感谢您！！

更改的关键是“班级”列的刷新公式！

-=-=-=- 以下内容由 wjq1072 在 2010年08月02日 03:31pm 时添加 -=-=-=-
2楼文件没有楼上的公式啊！两个文件两种分班方法。

看到“班级”列的刷新公式了，谢谢！
再有个问题请教，分班情况表中的“平均分”列是怎样算的？我的数据每个人的平均分都很低的，但它算出来后却有九十多分，怎么算得这么高？

看到平均分列刷新公式了“AvgFor("cjk","总分","班级", "=" ,[班级])”，这易表功能太强了！

再给你一个可以分任意班级数的，只是分班数多了影响速度！
egd文件下载

-=-=-=- 以下内容由 wjq1072 在 2010年08月02日 03:36pm 时添加 -=-=-=-
前面一个任意分班的文件速度快，但是不满足你的要求啊！

先做个标记。

谢谢wjq1072总版，分任意班级数的文件收藏了，待后好好学习一下。
又遇到新问题，现在的自动分班系统都是以每班的三科总分的平均分尽可能一样分出来的，能不能不以三科总分的平均分来分，而是每班的语文平均分（比如分出来每班有50人，把50个人的语文成绩都加成来再除以50得出每班语文平均分），数学和英语也是这样得出平均分，然后再以这语、数、英平均分一样（既分出来的所有班语文平均分一样，数学平均分一样，英语平均分一样）做为分班标准分班，这分法在易表里能实现吗？

egd文件下载