以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]如何实现表转换  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=28888)
--  作者：abcdzabcdz
--  发布时间：2016/9/29 6:53:00
--  [求助]如何实现表转换
如题。谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:课表转换.egd
--  作者：dancedy
--  发布时间：2016/9/29 17:25:00
--  

参考

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:课表转换.egd
--  作者：abcdzabcdz
--  发布时间：2016/9/29 18:59:00
--  

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) + """""")"")")
--  作者：abcdzabcdz
--  发布时间：2016/9/29 18:59:00
--  
高！！！