主题：[求助]分班问题

分班问题：

         1、确定班级窗口中自动调整同号同姓 按钮公式：要求：先搜索相同号数中姓名相同的学生并选定第一个姓名相同的学生，再利用逻辑列P和公式自动与相邻号数的总分相近，性别相同的学生对调；并在备注列备注。

         2、调班窗口中调班按钮公式，调班之前，先利用逻辑列P判断在新班级里有没有姓名与调入学生相同的学生，有就提示“调入新班级就会产生同班同姓的学生，所以该生禁止调到新班级”没有就运行调班公式。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:8899.egd

分班问题：

         1、确定班级窗口中【自动调整同号同姓】按钮公式：先搜索分班表中相同号数中姓名相同的学生并选定第一个姓名相同的学生，再利用逻辑列P和公式自动将第一个姓名相同的学生与相邻号数的总分相近，性别相同的学生对调；并在备注列备注：X号与Y号对调。

         例如：号数是2的学生中有两名学生的姓名都叫吴敏 ，那么就将排在前面的那个吴敏 与号数为3的学生中 总分相同或相近且性别相同的学生的号数由3改为2，同时在备注列备注：3号与2号对调。同时将排在前面的那个吴敏的号数由2改为3；同时在备注列备注：2号与3号对调。

         2、调班窗口中【调班】按钮公式，调班之前，先利用逻辑列P判断在新班级里有没有姓名与调入学生相同的学生，有就提示“本班存在与该生姓名相同的学生，禁止调入！”没有就运行调班公式。

         例如：将学生吴东从3班调到7班 ，先在7班查看有没有也叫吴东的学生，有就提示“本班存在与该生姓名相同的学生，禁止调入！”没有就将吴东与班级为7的学生中 总分相同或相近且性别相同的学生的班级由7改为3，备注列备注：7班与3班对调；同时将吴东的班级由3改为7，备注列备注：3班与7班对调

        （同号同姓）表示同一个号数中姓名相同的学生

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:8899.egd

查找同号同姓公式：EvalFor("分班","p","IF(CountFor(GridName,""姓名"",""="",[姓名],""号数"",""="",[号数])> 1,- 1,0)") And do(112) And FilterFor("p", "=" , - 1)And If([p] <> - 1,MsgBox("没有同班同姓的情况",1) And Do(112), True) And EvalFor("分班","p","0") And EvalFor("分班","p"," - 1",rowsel,rowsel)  运行正确。

但自动调整同号同姓公式就运行不完全正确，为什么？：Do(112)And If([备注]="", If([p]=-1, LocateFor("号数","=",If([号数] = MaxFor("分班","号数"),[号数] - 1,[号数] + 1), "备注"," = ","","总分","<=",FindText("分班","总分","姓名","=",[姓名] ,"p","=",-1)+3)And EvalFor("分班","号数","FindText(""分班"",""号数"",""姓名"",""="",[姓名],""p"",""="",-1)",rowsel,rowsel) And EvalFor("分班","备注","Text(If([号数] = MaxFor(""分班"",""号数""),[号数] - 1,[号数] + 1))+ ""号调往""+Text([号数]) + ""号""",rowsel,rowsel) And EvalFor("分班","备注","Text([号数]) + ""号调至""+Text(If([号数] = MaxFor(""分班"",""号数""),[号数] - 1,[号数] + 1))+ ""号""","姓名","=",[姓名] ," 性别","=",[性别])  And EvalFor("分班","号数","Text(If([号数] = MaxFor(""分班"",""号数""),[号数] - 1,[号数] + 1))","姓名","=",[姓名] ,"p","=",-1) ,"") ,"") 这个公式只是将同号同姓的学生直接调到相邻号数，没有与相邻班级总分相近，性别相同的学生对调。

哎 ！ 没人理我哟！

xiexie  ok