分页小程序,foxpro
set talk off
t=1
go 1
do while .not.eof()
*!* 2210/6+1=369.3333333 记录数/每页记录数+1(也得凑够一整页)
if t>369
t=1
endif
repl ym with str(t,3,0)
skip
t=t+1
endd
*分别按照准考证号和考点出场顺序排序后操作本程序。
*按照yw排序后调用报表输出程序。
天道酬勤,厚积薄发。
君子之行,静以修身,俭以养德。
非淡泊无以明志,非宁静无以致远。
如有恒,何须三更起,半夜眠;最怕莫,三天打鱼两天晒网,竹篮打水一场空。