| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7300 人关注过本帖, 2 人收藏
标题:请教如何将同一文件夹下的多个DBF合并为一个表
只看楼主 加入收藏
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:4 
无语

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2015-04-09 20:00
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用oogami在2015-4-9 10:54:05的发言:

大概20个左右
没听说过这个语句,可否请写个示例供参考?
注意:表名不要直接用数字,最好在数字前加字母,比如t1,t2,t3.......
USE t1.dbf
for i = 2 TO 20 &&这里20是指你表的数量
temp = "t"+transform(i)+".dbf"
select t1
append from (temp)
endf
2015-04-09 20:36
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 

以下是我吸取了别人经验后加以修改而成的代码,不知能否对你有所帮助。

SET TALK Off
SET SAFE OFF
clear all

yy=MESSAGEBOX("你是否符合下列要求吗?"+chr(13)+"在D盘下新建一个要存放合并数据库目录.然后把要合并的[相同结构的数据库]放在此目录中!",4+48+0,'注意以下的提醒!')

IF yy=6


cdir=GETDIR("d:","请选择要合并相同数据库的目录")
*CD (cdir)   &&进入相应的目录
cdir=left(cdir,len(cdir)-1)

cd (cdir)
delete file todata.dbf


lnFiles=Adir(aFile,"*.dbf")  

   use aFile(1,1)      
  copy Structure To todata              
  use todata                             
  for lnI=1 To lnFiles               
    lcStr=(aFile(lnI,1))     
    Append From '&lcStr.'            
   endfor
  browse
=MESSAGEBOX("合并完毕!,生成名为:TOTDATA数据库",0+48,"提醒:合并完毕")

else
retu
endif
set talk on
SET SAFE ON
2015-04-10 11:11
一彭ok
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2018-5-10
收藏
得分:0 
回复 13楼 sylknb
真心好用
2018-08-20 22:34
快速回复:请教如何将同一文件夹下的多个DBF合并为一个表
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041349 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved