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

Import
将其它文件中指定表的数据复制到当前文件中的指定表。

语法：
Import(Grid,SourceFile,SourceGrid,Password,CompareCol,CompareMode,Comparevalue,......,Option)

Grid           当前文件中的某个表
SourceFile     来源文件,包括路径和文件名
SourceGrid     来源文件中的表，将从该表中复制数据到Grid参数指定的表中。
Password       指定来源文件的管理员密码。
CompareCol     进行比较的列，可以用列名称表示，也可以用位置表示。
CompareMode    比较方式，包括=、>、<、>=、<=、<>、Like、Instr共8种比较方式。
Comparevalue   比较值 Option         可选参数，
             0  匹配同名列
             1  不匹配同名列，要求表结构必须完全一致。
             默认为0

可以设置多个比较条件，也可以不设置，从第五个参数开始，每三个参数组成一个比较条件。如果比较方式选择的是Instr,则进行包含查询；如果比较方式选择"Like"，则可以在比较值中使用通配符进行类似查询。

例如：
Import("销售总表","c:\sales.egd","销售","123")
将文件c:\sales.egd中的销售表数据复制到当前文件的销售总表，这里假定c:\sales.egd的管理员密码为123。

Import("华东分析","c:\sales.egd","销售","","地区","=","华东")
将文件c:\sales.egd的销售表中华东地区的销售数据复制到当前文件的华东分析表，这里假定c:\sales.egd没有设置管理员密码。

+++++++++++++++++++++++++++++++++++++++++++
基于这个公式，设置了一个按钮代码

Import("客户信息","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888","1")

这个公式一直到密码为止都是正常的，就是我在按下按钮的时候，它把所有的数据从头到尾全部复制过来了，而且，如果再按一下，就又重复复制了一份，也就是说你按几次他就复制几次，
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
我的意思是说我有一列档案号，这个复制得随号码走，不要复制多余的，没有的可以被复制进来，包括同名都是可以的，就是不能出现同个档案号-----档案号  是唯一的编码，是真实记录的当前编号

 使用  Import() And DelReptRows()
 这个代码，整个序列号和档案号全部乱了，档案号出现重复，序列号出现空号，姓名.性别列出现重复

-=-=-=- 以下内容由 east858 在 2010年12月16日 02:54pm 时添加 -=-=-=-
Import("客户信息","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888","1") And DelReptRows("客户信息","档案号","单号","姓名","性别")

-=-=-=- 以下内容由 east858 在 2010年12月16日 04:34pm 时添加 -=-=-=-
0  匹配同名列
            1  不匹配同名列，要求表结构必须完全一致。
            默认为0

我的代码 就是在这里不知道怎么设置..........

-=-=-=- 以下内容由 east858 在 2010年12月16日 04:35pm 时添加 -=-=-=-
怎么打到这里了呢？ O(∩_∩)O哈哈~

Import("客户信息","F:\东方验光局域办公\验光共享\客户信息管理.egd","客户信息","888","1")

代码已经在这里啦，  这是2个文件啊，就是上传
也是不能设置啊，，  从A文件中复制   B文件的数据 ，我的要求是完全复制 B 文件，也就是说克隆一个B 文件中的一个表数据，  就好比我们平常的复制 -张贴

-=-=-=- 以下内容由 east858 在 2010年12月16日 04:36pm 时添加 -=-=-=-
0  匹配同名列
           1  不匹配同名列，要求表结构必须完全一致。
           默认为0

我的代码 就是在这里不知道怎么设置..........

CreateGrid("客户信息","档案号",0,"k",3) And ClearGrid("客户信息") And Import("客户信息","F:\东方验光局域办公\验光共享\客

户信息管理.egd","客户信息","888",1) And DelRow("客户信息",1) And EvalFor("客户信息","k","FindRow(""客户信息"",""档案

号"",""="",[档案号])") And DelFor("客户信息","k","=",-1) And Eval("Import(""客户信息"",""F:\东方验光局域办公\验光共享\客

户信息管理.egd"",""客户信息"",""888"",""档案号"",""="","""+Substitute(ListFor("客户信息","档案号"),"|",""",1) And

Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="",""")

+""",1)") And RemoveGrid("客户信息")

一图  
2图

导入是正常的，但是每次导入  都会产生 一个表 如一图， 然后出现 第二图

 这个是主表文件 好比 是A
 这个是被复制的文件好比  是B
  当前文件 就是 A     ,要在当前文件中复制  B文件  数据

B  文件 位置在：  F:\东方验光局域办公\验光共享\客户信息管理.egd

CreateGrid("客户信息","档案号",0,"k",3) And ClearGrid("客户信息") And Import("客户信息","F:\东方验光局域办公\验光共享\客

户信息管理.egd","客户信息","888",1) And DelRow("客户信息",1) And EvalFor("客户信息","k","FindRow(""客户信息"",""档案

号"",""="",[档案号])") And DelFor("客户信息","k","=",-1) And Eval("Import(""客户信息"",""F:\东方验光局域办公\验光共享\客

户信息管理.egd"",""客户信息"",""888"",""档案号"",""="","""+Substitute(ListFor("客户信息","档案号"),"|",""",1) And

Import(""客户信息"",""F:\东方验光局域办公\验光共享\客户信息管理.egd"",""客户信息"",""888"",""档案号"",""="",""")

+""",1)") And RemoveGrid("客户信息")

+++++++++++++++++++++++++++++++++++++++

公式 就是 你给的代码     我只是把  B  改为  客户信息  其他没有改变

对了   B 表中的图  刚刚截图 错了  刚刚的都是 A表图了  

哦，原来是这样啊，我还以为，B  是B 文件的代码呢，，不发文件 是因为 我想，俩个文件  发一个也没有用处，

非常感谢 wjq1072 总版主

这个好，速度快，只是会产生一个空行