无语

注意:表名不要直接用数字,最好在数字前加字母,比如t1,t2,t3.......
USE t1.dbf
for i = 2 TO 20 &&这里20是指你表的数量
temp = "t"+transform(i)+".dbf"
select t1
append from (temp)
endf

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

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

真心好用