visualfoxpro企业会计电算化实例

* 复制明细结构
use zk85
copy to array a
use mx1002
set safety off
for i=53 to 85
 	copy stru to &a(i,4)
 	use &a(i,4)
 	append blank
 	replace 明细名称 with "创建或增添新明细 "
* 	brow
next 	
set safety on