易表在线答疑技术与交流用户社区 → [求助]将其它文件中指定表的数据复制到当前文件中的指定表


  共有9214人关注过本帖树形打印复制链接

主题:[求助]将其它文件中指定表的数据复制到当前文件中的指定表

帅哥哟,离线,有人找我吗?
wjq1072
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/12/16 16:43:00 [显示全部帖子]

不发文件只能给你思路、公式试试?
1、在当前文件中新增一个表,表名为“B”。有2列,字符列“档案号”、逻辑列“K”。

2、在文件的当前表“客户信息”设置按钮公式:

ClearGrid("B") And
Import("B","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888") And
DelRow("B",1) And
EvalFor("B","k","FindRow(""客户信息"",""档案号"",""="",[档案号])") And
DelFor("B","k","=",-1) And
Eval("Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="","""+Substitute(ListFor("B","档案号"),"|",""",0) And Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="",""")+""",0)")


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/12/16 17:33:00 [显示全部帖子]

[这个贴子最后由wjq1072在 2010/12/16 05:37pm 第 1 次编辑]

把你的2个表的列名称排出来看看?

-=-=-=- 以下内容由 wjq10722010年12月16日 05:35pm 时添加 -=-=-=-
2个表“档案号”列的位置是不是相同?如果相同就可以:
Import("客户信息","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888",1) And DelReptRows("客户信息","档案号")

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/12/16 17:54:00 [显示全部帖子]

把按钮公式中的路径E更改F试试?
egd文件下载

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/12/16 18:49:00 [显示全部帖子]

请把“A”文件发上来吧!看看你的按钮公式是怎么写的。

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/12/16 19:00:00 [显示全部帖子]

下面引用由east8582010/12/16 06:27pm 发表的内容:
CreateGrid("客户信息","档案号",0,"k",3) And ClearGrid("客户信息") And Import("客户信息","F:\东方验光局域办公\验光共享\客
户信息管理.egd" ...

呵呵!只要E更改F!
你的按钮公式直接这样就可以啦!
CreateGrid("B","档案号",0,"k",3) And ClearGrid("B") And Import("B","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888",1) And DelRow("B",1) And EvalFor("B","k","FindRow(""客户信息"",""档案号"",""="",[档案号])") And DelFor("B","k","=",-1) And Eval("Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="","""+Substitute(ListFor("B","档案号"),"|",""",1) And Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="",""")+""",1)") And RemoveGrid("B")

-=-=-=- 以下内容由 wjq10722010年12月16日 07:02pm 时添加 -=-=-=-
“公式 就是 你给的代码     我只是把  B  改为  客户信息  其他没有改变

这样就大错特错啦!

-=-=-=- 以下内容由 wjq10722010年12月16日 07:03pm 时添加 -=-=-=-
发你的当前操作文件,问题早解决了!

 回到顶部