7楼的代码也可以这样写
SELECT gz
ZAP
= ADIR(afile, "data\fk????.dbf")
FOR i = 1 TO ALEN(afile, 2)
APPEND FROM ("data\" + afile[i, 1])
ENDFOR
replace byxxdm with subs(bmh,5,4) all
MESSAGEBOX("数据加载结束")
SELECT gz
ZAP
= ADIR(afile, "data\fk????.dbf")
FOR i = 1 TO ALEN(afile, 2)
APPEND FROM ("data\" + afile[i, 1])
ENDFOR
replace byxxdm with subs(bmh,5,4) all
MESSAGEBOX("数据加载结束")
坚守VFP最后的阵地