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

粗略看了一下，这道题用用易表肯定能解，但实现过程可能会很复杂，关键还要看思路准不准确，不然可能会陷泥潭，耗进去N个小时都有可能，这是我一直不敢下手的原因。

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

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

个人所见。