以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  如何同时复制到表去?  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=4322)

--  作者:dg5588
--  发布时间:2006/10/12 15:41:00
--  如何同时复制到表去?
各位大师!好
如何把表a.egd的表1的内容同时复制到表b.edg、c.egd、d.egd等n具表中的表1去结构相同复过去不覆盖以前的数据??



--  作者:xjy
--  发布时间:2006/10/12 15:47:00
--  
Export
将当前文件指定表中符合条件的行复制到其他文件的指定表。

语法:
Export(FileName,Grid,Password,SourceGrid,CompareCol,CompareMode,CompareValue...,Option)

FileName       目标文件,包括路径和文件名
Grid           目标文件中的某个表,一定要用表名指定。
Password       目标文件的管理员密码
SourceGrid     当前文件中的某个表,用表名或者位置指定,将从该表复制数据到目标文件中。
CompareCol     进行比较的列,可以用列名称表示,也可以用位置表示。
CompareMode    比较方式,包括=、>、<、>=、<=、<>、Like、Instr共8种比较方式。
CompareValue   比较值
Option         可选参数。
              1:不包括隐藏行(默认包括)
              2:清除目标表原有数据(默认不清除)
              4:不匹配同名列(默认匹配)
              参数可以组合,例如参数设为3(2+1),表示不包括隐藏行,同时清除目标表原有数据。


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

例子:
Export("c:\\备份.egd","结帐订单","888","本月销售","结帐","=",-1)
将当前文件本月销售表中已经结帐的订单复制到文件(c:\\备份.egd)的结帐订单表中。



--  作者:dg5588
--  发布时间:2006/10/12 22:02:00
--  
谢谢! 这得多做才行的!
--  作者:czy
--  发布时间:2006/10/12 23:54:00
--  
RAR文件下载
--  作者:czy
--  发布时间:2006/10/13 10:30:00
--  
4楼文件存在函数嵌套问题,可能会引起错误,解决办法,在444表中增加一个表达式变量,公式:ListFor("表3","文件名",1),将窗口的按钮公式改成:SetLabel("","正在发布最新数据...") And Eval("Export(docdir+"""+Substitute([%A%],"|",""",""表2"",""888"",GridName,""a"",""="",0) And Export(docdir+""")+""",""表2"",""888"",GridName,""a"",""="",0)") And EvalFor(Grid,"a","-1") And Save() And SetLabel("","数据发布完毕!")
--  作者:dg5588
--  发布时间:2006/10/13 15:21:00
--  
cyz谢谢!这么复杂?