首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

vfp 9.0 在windows2012中发现scan语句有有关问题

2013-07-09 
vfp 9.0 在windows2012中发现scan语句有问题装了个windows 2012,然后装了vfp 9.0 ,一小段代码,读取一个表

vfp 9.0 在windows2012中发现scan语句有问题
装了个windows 2012,然后装了vfp 9.0 ,一小段代码,读取一个表的每一条记录,然后将每条记录中的文件名取出,拷贝相应文件到指定的文件夹,用了scan endscan,结果总是弹出第一个文件是否覆盖,估计记录指针始终指向第一条记录,换了do while循环,还是始终指向第一条记录,继续用scan,在xp 系统上运行很好,求解决!谢谢先
[解决办法]
试试这段代码:

Set Safety Off
Select zpktest
Scan
Zpm1='f:\zpktest\' + Left(zpktest.Name,4)
If .Not. Directory(Zpm1)
Md (Zpm1)
Endif
Zpm2='f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3)
If .Not. Directory(Zpm2)
Md (zpm2)
Endif
Zpm3 = 'f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3) + '\' + Substr(zpktest.Name,8,3)
If .Not. Directory(Zpm3)
Md (zpm3)
Endif
Zpm4 = 'f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3) + '\' + Substr(zpktest.Name,8,3)
Copy File (zpktest.name) To (zpm4)
Endscan

热点排行