vfp 9.0如何导入符合条件的文件
答案:1 悬赏:0
解决时间 2021-01-27 19:33
- 提问者网友:呐年旧曙光
- 2021-01-26 18:42
vfp 9.0如何导入符合条件的文件
最佳答案
- 二级知识专家网友:深街酒徒
- 2021-01-26 19:35
&&首先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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯