主题：用易表能不能做出象类似于排课软件那样的人员按排表

只有一个年级，七个班级，一共18个老师。多年级版本还要继续做

-=-=-=- 以下内容由 老宋 在 2007年08月29日 11:36pm 时添加 -=-=-=-
多年级的就不做了，楼主的要求似乎年级和年级之间没关系。

还是看看能否升级成课程表排课软件

抛砖引玉，希望能看到各位高手的杰做。

egd文件下载

          抽空一定学习！

OpenRGrid(2) And ClearGrid("表2") And CopyFor("表2","班级","班主任_班级") And DelRow("表2",1) And CreateGrid(".","班级",0,"姓名",0,"随机值",1,"A",3,"行",1,"列",1,"B",0) And ClearGrid(Grids) And eval(Mid(Rept(" And CopyFor(Grids,""班级,姓名"",""班主任_班级,班主任_姓名"")",5),5)) And DelRow(Grids,1) And EvalFor(Grids,"列","Choose(Mod(Row-1,5)+1,""2"",""4"",""6"",""8"",""10"")") And EvalFor(Grids,"随机值","Int(Rand(100))") And SortCol(Grids,"随机值",1) And EvalFor(Grids,"行","FindRow(""表2"",""班级"",""="",[班级])") And CreateGrid("..","班级",0,"姓名",0,"随机值",1,"A",3,"行",1,"列",1,"B",0) And ClearGrid(Grids) And eval(Mid(Rept(" And CopyFor(Grids,""姓名"",""任课教师_姓名"",""A"",""="",-1)",5),5)) And DelRow(Grids,1) And SortCol(Grids,"姓名",1) And EvalFor(Grids,"随机值","Int(Rand(100))") And SortCol(Grids,"随机值",1) And EvalFor(Grids,"列","Choose(Mod(Row-1,5)+1,""3"",""5"",""7"",""9"",""11"")") And EvalFor(Grids,"行","Mod(Row-1,[%A%])+1") And Import(Grids-1,filename,Grids) And eval("ClearGrid(Grids) And CopyFor(Grids,""姓名"",""任课教师_姓名"",""A"",""="",0) And DelRow(Grids,1) And EvalFor(Grids,""随机值"",""Int(Rand(100))"") And SortCol(Grids,""随机值"",1) And EvalFor(Grids,""行"",""Mod(Row-1,[%B%])+[%B%]-1"") And EvalFor(Grids,""列"","""+Substitute("3|5|7|9|11","|",""") And Import(Grids-1,filename,Grids) And ClearGrid(Grids) And CopyFor(Grids,""姓名"",""任课教师_姓名"",""A"",""="",0) And DelRow(Grids,1)And EvalFor(Grids,""随机值"",""Int(Rand(100))"") And SortCol(Grids,""随机值"",1) And EvalFor(Grids,""行"",""Mod(Row-1,[%B%])+[%B%]-1"") And EvalFor(Grids,""列"",""")+""") And Import(Grids-1,filename,Grids)") And EvalFor(Grids-1,"随机值","Int(Rand(1000))") And SortCol(Grids-1,"随机值",1) And EvalFor(Grids-1,"A","FindRow(Grids-1,""姓名"",""="",[姓名],5)=Row") And ClearGrid(Grids) And eval(Mid(Rept(" And CopyFor(Grids,""姓名"",""其它"")",6),5)) And EvalFor(Grids,"随机值","Int(Rand(1000))") And SortCol(Grids,"随机值",1) And DelFor(Grids,"姓名","=","") And EvalFor(Grids-1,"B","""SetCellText(""""表2"""",""+text([行])+"",""+text([列])+"",""""""+[姓名]+"""""")""") And Eval(Substitute([%D%],"|"," and ")) And DelFor(Grids-1,"A","=",0) And Import(Grids-1,filename,Grids-1) And EvalFor(Grids-1,"姓名","Cell(Row,""姓名"",Grids)") And DelReptRows(Grids-1,"姓名","列") And Eval

个人所见。

好象也不太符合要求，18个老师值5天班没发现问题，如果5个老师值5天就不行了。

楼主的要求老师越少排课越复杂。

egd文件下载