CLOSE DATABASES
FOR i=1 TO 500 &&暂定你有500个数据表,这里的数字由你的数据表的个数决定
DO CASE
CASE i<10
ii=STR(i,1)
CASE i>=10 AND i<100
ii=STR(i,2)
CASE i>=100 AND i<1000
ii=STR(i,3)
ENDCASE
USE xx&ii && 使用宏替换,前面文件名相同,只有后面的数字变化
DELETE FOR dwdm<>'140106' &&如果是要删除的话,用这条命令
* REPLACE dwdm WITH ' ' FOR dwdm<>'140106' &&如果要代替为空的话,用下面这条命令,否则用上面的命令
USE
ENDFOR
FOR i=1 TO 500 &&暂定你有500个数据表,这里的数字由你的数据表的个数决定
DO CASE
CASE i<10
ii=STR(i,1)
CASE i>=10 AND i<100
ii=STR(i,2)
CASE i>=100 AND i<1000
ii=STR(i,3)
ENDCASE
USE xx&ii && 使用宏替换,前面文件名相同,只有后面的数字变化
DELETE FOR dwdm<>'140106' &&如果是要删除的话,用这条命令
* REPLACE dwdm WITH ' ' FOR dwdm<>'140106' &&如果要代替为空的话,用下面这条命令,否则用上面的命令
USE
ENDFOR
学习交流VFP,QQ:248561326。