i

visualfoxpro企业会计电算化实例

**********************************************
*            整理余额减借加贷.PRG
**********************************************
store recc() to n
for i=recno() to n
	goto i-1
	store 余额 to y
	goto i
	replace 余额 with y-借方+贷方
next
brow
use
cancel