&&首先a和b和需要导入的文件，表的库结构应是相同的。
set date ansi
set cent on
clear all
clear
use 表名（含完整路径名） in 0 excl alias 别名
sele 别名
bl_rq=dtoc(date())
bl_rq=left(bl_rq,4)+subs(bl_rq,6,2)+right(bl_rq,2)
for bl_xhcs=1 to 2
bl_ljm="'D:\AB\"+bl_rq
if bl_xhcs=1
bl_wjm="\A.dbf'"
else
bl_wjm="\B.dbf'"
endi
ls_wjm=bl_ljm+bl_wjm
if file(ls_wjm)
sele 别名
appe from &ls_wjm
else
messagebox("对不起"+ls_wjm+"没有找到！"+chr(13)+"请您核对后再运行本程序！",0+48+0,"错误信息")
exit
endi
endfor
sele 别名
brow
use
clear all
exit