CLOSE ALL use one &&23662 records copy structure to TempResult use TempResult in 0 select *, rand() * 0.000000 as random; from one; into cursor Temp; order by area ,random go top for i = 1 TO 3 select Temp BROWSE wait locate for area= i copy next 7200 to temp2 while area = i select TempResult append from temp2 NEXTthanks