假如想要分成小表,可以参考几句简单代码:
close all
set safety off
ngg=0
do while ngg=0
@ 10,40 say "输入数字,表示: 分成的每个小表有多少条记录:" get ngg font'',12
read
enddo
store 1 to naa,nbb
do while.t.
cbb="B"+ALLTRIM(STR(nbb))
select * from
待分割的大表 into table &cbb where RECNO()>=naa and RECNO()<(naa+ngg)
sele &cbb && 这是分成的小表,用于打印等
if EOF()
exit
endif
naa=naa+ngg
nbb=nbb+1
enddo
close all