Question

vfp编程prg文件怎么写

我有一个数据库文件db.mdb
我要做的事情是，筛选，保存成xls文件，命令是：
select * from db.mdb where dd like "%001%"
copy to 001.xls xl5
select * from db.mdb where dd like "%002%"
copy to 002.xls xl5
……
一直重复400次。
多么麻烦。我要一个prg文件，可以自动实现以上效果。
在线等，马上给我写出的再奖励50分。

Answer 1

for i=1 to 400
s=right("00"+ltrim(str(i)),3)
t="%"+s+"%"
select * from db.mdb where dd like &t
copy to &s..xls xl5
next

Answer 2

for i=1 to 400
if i<10
k="00"+alltrim(str(i))
endif
if i>=10 and i<100
k="0"+alltrim(str(i))
endif
if i>=100
k=alltrim(str(i))
endif
select * from db.mdb where k$dd
wj=k+".xls"
copy to &wj xl5
endfor

追问

程序运行OK。但是为什么每次都要关闭筛选结果，再生成另外一个xls文件呢？我不想它弹出关闭行不行呢？

追答

不太明白你说的意思，你截个图给我看看