>USE moh11 >COPY TO newmoh111 NEXT (thisform.text1.value) >>thanks.
use moh11 copy to newmoh111 next (thisform.text1.value)...will copied the number of record(s) = thisform.text1.value from moh11 to newmoh111 starting from the current record in moh11
SELECT moh11 gnlower = 1 gnupper = RECCOUNT() mtop = thisform.text1.value FOR ncnt = 1 TO mtop ranselect = Int(((gnupper - gnlower+1) * Rand() + gnlower)) SELECT moh11 GOTO ranselect SELECT newmoh111 APPEND BLANK replace newmoh111.code WITH moh11.code, ... with ...,... with ... select moh11 endfor