主题：高难度的排序问题。

這個問題的關鍵問題：不同人數分組問題只怕要預先設定，參考下面
http://bbs.egridsoft.com/dispbbs.asp?boardid=1&star=1&replyid=250910&id=37953&skin=0&page=1

26人應該是7，7，6，6，而不是5，5，5，5，6吧。也就是分組原則應同時滿足：
1、盡量用滿可能的賽道，減少比賽場次；
2、各場次盡可能均勻。

其實樓主內行人，應詳盡說明分組原則，無謂讓外行人猜測。

唉，時間所限，湊不上熱鬧了，座個末班車吧。
egd文件下载

[这个贴子最后由yhhk08在 2007/09/26 00:15am 第 7 次编辑]

我的是繁體版本。

步骤：

1、“报名表＂的几列“报名成绩＂(原...报名成绩/...报名成绩1/...报名成绩2/...报名成绩3)改为：..报名成绩1/...报名成绩2/...报名成绩3／..报名成绩4

2、“分组”表增一“单项”逻辑列，刷新公式为：Search("×",[比赛项目]) = - 1

3、设表达式变量：

(1)%YH%

mid(rept("|"+text(-int(-[.!Rows]/-int(-[.!Rows]/8))),-int(-[.!Rows]/8)-(-int(-[.!Rows]/-int(-[.!Rows]/8))*-int(-[.!Rows]/8)-[.!Rows]))+rept("|"+text(-int(-[.!Rows]/-int(-[.!Rows]/8)+1)),-int(-[.!Rows]/-int(-[.!Rows]/8))*-int(-[.!Rows]/8)-[.!Rows]),1)

(2)%YS%

Eval("mid(rept(""," + Substitute(Substitute(Eval(rept("Substitute(",len([%YH%])-len(Substitute([%YH%],"|",""))+1)+""""+Substitute(mid(Left("01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33",(len([%YH%])-len(Substitute([%YH%],"|",""))+1)*3-1),1),"|0","|")+"|"",""|"",""#"+Substitute([%YH%],"|","@"",1),""|"",""#")+""",1)"),"#",""","),"@",")+rept("",")+"),1)")

(3)%gs%

Eval("ClearGrid(""."") And Evalfor(""."",1,""AppendFor(""""报名表"""",""""姓名,单位,性别,比赛项目_" + Split([比赛项目],"米",2) + "_报名成绩" +text(number(Find(Split([比赛项目],"年",2),"50米自由泳","100米自由泳","50米蛙泳","100米蛙泳"))+1)+""""",""""姓名,单位,性别,成绩"""",""""性别"""",""""="""","""""+ Left([比赛项目],2) +""""",""""组别_"+Mid([比赛项目],4,4)+"组"""",""""="""",""""√"""",""""比赛项目_"+Split([比赛项目],"米",2)+"_"+ mid([比赛项目],Search("年",[比赛项目])+2,Search("米",[比赛项目])-Search("年",[比赛项目]))+""""",""""="""",""""√"""")"")And DelRow(""."",1)and replacefor(""."",""组别"","""+Mid([比赛项目],0,8)+""")and replacefor(""."",""比赛项目"",""" + [比赛项目] + """)and replacefor(""."",""成绩"",""600分60秒60"",""成绩"",""="","""")And EvalFor(""."",""序号"",""rand(100)"") And SortCol(""."",""序号"",1) And SortCol(""."",""单位"",1) And EvalFor(""."",""序号"",""if( [单位] <> cell(Row-1,""""单位""""),1,cell(Row-1,""""序号"""")+1)"") And SortCol(""."",""序号"",1)And SortCol(""."",""成绩"",1)And SortCol(""."",""比赛项目"",1)And EvalFor(""."",""比赛分组"",""Eval(""""Choose(Row,""""+[%YS%] +"""")"""")"")  and EvalFor(""."",""道次"",""Eval(""""Choose(Row""""+Eval("

你沒全部按辦：
1、“分组”表“单项”逻辑列沒刷新；
2、有些表達式變量你設成數值型變量

注：90樓已重新優化公式