请教一个复制表的问题 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

共有7405人关注过本帖树形打印复制链接主题：请教一个复制表的问题

搞不懂

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：职业侠客帖子：465 积分：1051 威望：0 精华：0 注册：2006/11/24 23:07:00

请教一个复制表的问题 发帖心情

Post By：2007/4/13 0:17:00 [只看该作者]

egd文件下载
请问如何在"表2",设一按钮公式,可从"表1"将"表1"的每一行按"表1"的"行数"的数字复制到"表2"中,不知表达清楚了没有,先谢了

Czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2007/4/13 8:53:00 [只看该作者]

这样?

AddCol(Grid,"行数",1,false) And ClearGrid(Grid) And Move(1,1) And AppendRows("表1") And DelRow(Grid,1) And SetCellText(Grid,1,Cols,-1) And eval(Mid(Rept(" And eval(""eval(Mid(Rept("""" And AddRow(Grid,""""""""水平,因素A,因素B,因素C,因素D,行数"""""""",[水平],[因素A],[因素B],[因素C],[因素D],[行数])"""",[行数]-1),5)) And Next()"")",[表1!Rows]),5)) And SortCol(Grid,"行数",1) And DeleteCol(Grid,"行数")

Eval

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：73 积分：0 威望：0 精华：0 注册：2007/4/9 12:45:00

Post By：2007/4/13 9:17:00 [只看该作者]

也可这样:
Eval("ClearGrid(Grid) And AppendRows(""表1"",""行数"","">="","+Substitute(ListFor("表1","行数"),"|",") And AppendRows(""表1"",""行数"","">="",") + ")") And DelFor("表2",1,"=","") And ReplaceFor("表2","水平",0,"水平","=","名称")And SortCol(Grid,1,1)And ReplaceFor("表2","水平","名称","水平","=",0)