| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [求助]如何将列标题变到行记录里面 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=6235) |
| -- 作者：ye428921 -- 发布时间：2007/1/24 16:54:00 -- [求助]如何将列标题变到行记录里面 如何将“排程表”的格式自动生成“指令表”的格式，要使用那个函数或辅助列？ |
| -- 作者：ye428921 -- 发布时间：2007/1/24 16:58:00 -- egd文件下载 |
| -- 作者：czy -- 发布时间：2007/1/24 20:43:00 -- 数据量大不大？如果不是太大还有笨办法，不然的话咱可没辙。 |
| -- 作者：czy -- 发布时间：2007/1/24 20:59:00 -- 试试指令表自定义按钮公式： ClearGrid(Grid) And Eval(Mid(Rept(" And AppendRows(""排程表"")",([排程表!Cols]-5)*[排程表!Rows]),5)) And DelRow(Grid,1) and EvalFor(Grid,"日期","if(row<=rows/([排程表!Cols]-5),1,Number(Cell(Row-rows/([排程表!Cols]-5),""日期""))+1)") And EvalFor(Grid,"日期","[日期]+""日""")And EvalFor(Grid,"计划数量","FindText(""排程表"",[日期],""产品编号"",""="",[产品编号])") And DelReptRows(Grid,"日期","产品编号","产品名称","规格","计划数量") And DelFor(Grid,"计划数量","=",0) And SortCol(Grid,"日期",1) |
| -- 作者：Tyeb -- 发布时间：2007/1/24 22:44:00 -- ClearGrid(Grid) And eval("AppendFor(""排程表"",""产品编号,产品名称,规格," + Substitute( Substitute(Substitute(eval(""""+Substitute(Substitute(eval("Mid(Rept(""@"+Substitute(eval("Split("""+ListCols("排程表")+""",""本次计划量|"",2)"),"|",""",2),1)+""|""+Mid(Rept(""@")+""",2),1)"),"@","@""+Mid(Rept(""#"),"|",""",2),1)+""|""+""")+""",2),1)"),"@",""",""产品编号,产品名称,规格,计划数量"","""),"#",""","">"",0)And ReplaceFor(Grid,""日期"","""),"|",""",""日期"",""="","""")and AppendFor(""排程表"",""产品编号,产品名称,规格,") + """,""日期"",""="","""")") And DelRow(Grid,1) |
| -- 作者：ye428921 -- 发布时间：2007/1/25 12:38:00 -- 数据量一般吧，在排程表里，大约1000条记录左右 -=-=-=- 以下内容由 ye428921 在 2007年01月25日 00:40pm 时添加 -=-=-=- 但是如果将这些排程变到“指令表”里，大约有2000多条 |
| -- 作者：ye428921 -- 发布时间：2007/1/25 12:52:00 -- 这个公式可以，但是日期列并不是排序的 |
| -- 作者：ye428921 -- 发布时间：2007/1/25 12:56:00 -- 谢谢二位了，Tyeb的公式是有排序的。 |
| -- 作者：gdlgh -- 发布时间：2007/1/25 17:57:00 -- 呵。我也趁个热闹！ ClearGrid(grid) And eval("RenameCol(cols,"""+Substitute(Substitute(eval("Split("""+ListCols("排程表")+""",""本次计划量"",2)"),"|","",1),"|",""")And eval(""AppendRows(""""排程表"""",""""""+cell(0,cols)+"""""", """">"""" ,0)"") And eval(""ReplaceFor(grid,1,""""""+cell(0,cols)+"""""",""""日期"""",""""="""","""""""")"")And RenameCol(cols,""")+""") And eval(""AppendRows(""""排程表"""",""""""+cell(0,cols)+"""""", """">"""" ,0)"") And eval(""ReplaceFor(grid,1,""""""+cell(0,cols)+"""""",""""日期"""",""""="""","""""""")"") And DelRow(grid,1)And DelFor(grid,cols, ""="" ,"""") And RenameCol(cols,""计划数量"")") |
| -- 作者：iachengdong -- 发布时间：2007/1/25 22:27:00 -- 文件--文件设置--目录方案—“目录方案一”—设计—标题“目录方案一”—命令公式—OpenMydir(“目录方案一”)—确定—应用—保存—关闭，启动表后—F10，目录方案是空白。我以上设置是否那里不妥请多指教。 |