来自「visualfoxpro企业会计电算化实例」· 代码 · 共 19 行

* 复制科目表结构
clear all
use zk85
copy to array a
b=1
e=85
use mx1002
for i=1 to 85
*	copy stru to &a(i,4)
* 	use &a(i,4)
* 	brow
next 	
use km1131000
for i=b to e
 	copy stru to &a(i,3)
* 	copy stru to &a(i,6)
* 	use &a(i,3)
* 	brow
next