tt.prg

一个彩票销售软件

use sj
dele all
pack
sele 2
use c:\cpf\zsjb
go bott
i=recno()
go top
tmpi=1
do while tmpi<=i
	tmpc=sj+'6'
	sele 1
	appe blank
	repl sj with tmpc
	sele 2
	skip
	tmpi=tmpi+1
enddo
close data