主题：[求助]如何将列标题变到行记录里面

如何将“排程表”的格式自动生成“指令表”的格式，要使用那个函数或辅助列？

egd文件下载

数据量大不大？如果不是太大还有笨办法，不然的话咱可没辙。

试试指令表自定义按钮公式：

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)

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)

数据量一般吧，在排程表里，大约1000条记录左右


-=-=-=- 以下内容由 ye428921 在 2007年01月25日 00:40pm 时添加 -=-=-=-
但是如果将这些排程变到“指令表”里，大约有2000多条

这个公式可以，但是日期列并不是排序的

谢谢二位了，Tyeb的公式是有排序的。

呵。我也趁个热闹！

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,""计划数量"")")

文件--文件设置--目录方案—“目录方案一”—设计—标题“目录方案一”—命令公式—OpenMydir(“目录方案一”)—确定—应用—保存—关闭，启动表后—F10，目录方案是空白。我以上设置是否那里不妥请多指教。