主题：[求助]如何实现表转换

参考

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

点击浏览该文件:课表转换.egd

ClearGrid("表5") And 

Eval("Eval([%A%]) And 

Evalfor(""表5"",""班级"",""""""" + Substitute(ListFor(GridName,"班级"),"|",""""""",""班级"","" = "","""") And 

Eval([%A%]) And 

Evalfor(""表5"",""班级"",""""""") + """"""",""班级"","" = "","""")") And 

DelFor("表5","星期"," = ","") And RecalcCol("表5","科目")

Eval("Eval(""AddRow(""""表5"""",""""星期,节次"""","""""" + split(""" + Substitute(Substitute(Eval("Substitute(""|@|"",""|"",""" + Substitute(Substitute(ListCols(GridName),"班级|",""),"|",""") + ""|"" + Substitute(""|@|"",""|"",""") + """)"),"@",""",""_"",1) + """""","""""" + split("""),"|",""",""_"",2) + """""")"") And Eval(""AddRow(""""表5"""",""""星期,节次"""","""""" + split(""") + """,""_"",2) + """""")"")")