求助:自动将表1和表2的数据填充到表3 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → 求助:自动将表1和表2的数据填充到表3

共有14767人关注过本帖树形打印复制链接主题：求助:自动将表1和表2的数据填充到表3

Tyeb

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

加好友

发短信

等级：论坛游民帖子：40 积分：0 威望：0 精华：0 注册：2006/9/18 21:29:00

Post By：2006/10/31 11:18:00 [只看该作者]

这样速度可能快5-6倍，试试：

DelFor("表1","编号", "=" ,"") And DelFor("表2","项目", "=" ,"") And CreateGrid(".","项目",0)And ClearGrid(Grid) And eval(mid(rept(" And AppendRows(""表1"")",[表2!Rows]),5)) And SortCol(Grid,"编号",1)And evalfor(Grids,1,"eval(mid(rept("" And AppendRows(""""表2"""")"",[表1!Rows]),5))",1,1) and DelFor(grids,"项目", "=" ,"") and evalfor(grid,"项目","cell(row,1,grids)") And RemoveGrid(Grids)And DelRow(Grid,1)

egd文件下载

dfevwylh

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

加好友

发短信

等级：论坛游民帖子：50 积分：0 威望：0 精华：0 注册：2006/8/14 14:18:00

Post By：2006/10/31 11:58:00 [只看该作者]

11楼的方法好象更快，谢谢

Tyeb

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

加好友

发短信

等级：论坛游民帖子：40 积分：0 威望：0 精华：0 注册：2006/9/18 21:29:00

Post By：2006/10/31 16:24:00 [只看该作者]

嘻嘻，这个又快了1倍多：

DelFor("表1","编号", "=" ,"") And DelFor("表2","项目", "=" ,"") And ClearGrid(Grid) And eval(mid(rept(" And AppendRows(""表1"")",[表2!Rows]),5)) And DelRow(Grid,1)And SortCol(Grid,"编号",1)And eval(mid(rept(" And AppendRows(""表2"")",[表1!Rows]),5)) And Select(Rows/2+1,"项目",Rows,2) And Do(23) And Do(102,1)And First() And Do(24) And First()

dfevwylh

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

加好友

发短信

等级：论坛游民帖子：50 积分：0 威望：0 精华：0 注册：2006/8/14 14:18:00

Post By：2006/10/31 17:06:00 [只看该作者]

由于速度快，我改用13楼的方法。谢谢你。谢谢大家

-=-=-=- 以下内容由 dfevwylh 在 2006年10月31日 05:12pm 时添加 -=-=-=-
不过我对公式有一点不明白eval(mid(rept(" And AppendRows(""表1"")",[表2!Rows]),5))中的 rept(" And AppendRows(""表1"")",[表2!Rows])

gdlgh

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

加好友

发短信

等级：职业侠客帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00

Post By：2006/10/31 18:51:00 [只看该作者]

运用函数十分熟练、灵活、出奇，学习了，我顶。。。。。。。

-=-=-=- 以下内容由 gdlgh 在 2006年10月31日 06:55pm 时添加 -=-=-=-
上面公式是:重复了[表2!Rows]次“And AppendRows("表1")，并只运算“AppendRows("表1")”这条公式。