hi,
thank you for reply,
1.COPY TO \SELECTION NEXT 0? what is that mean
2.i get error message Alias Not FOUND
at this line
endCount=RECCOUNT('SELECTION')+ICASE(m._code<4,900,m._code=4,450,750)
i try to make it as
COPY STRUCTURE TO temprand, and change 'SELECTION' to temprand
same error
thanks.
>>hi all,
>>i need help to mdify at this code under ,
>>
>>my filed name is(code) have numbers form 1 to 14
>>
>>for i= 1 to 3
>>1.i need to get 900 records randomly for every code
>>
>>2.for i=4, i need 750 records randomly
>>
>>3.for i=5 to 14, i need 450 records randomly for every code
>>
>>
>>
>>
>>
>>CLOSE all
>>USE RIS_SEG_2
>>
>>total = "450"
>>*total = (THISFORM.TEXT1.VALUE)
>>RAND(-1)
>>INDEX ON RAND() TO SYS(2023)+'\RANDOM'
>>*COPY TO \SELECTION NEXT &total
>>COPY TO rf2 NEXT &total
>>brow
>>SET INDEX TO
>>ERASE SYS(2023)+'\RANDOM'
>> CLEAR EVENTS
>>
>> thanks
>
>try
>
>CLOSE all
>
>USE RIS_SEG_2
>COPY TO \SELECTION NEXT 0
>
>RAND(-1)
>INDEX ON Code+RAND() TO SYS(2023)+'\RANDOM'
>
>FOR _code=1 to 14
> endCount=RECCOUNT('SELECTION')+ICASE(m._code<4,900,m._code=4,450,750)
> SCAN REST WHILE RECCOUNT('SELECTION') < m.endCount FOR Code=m._code
> SCATTER MEMO NAME recBuffer
> INSERT INTO SELECTION FROM NAME recBuffer
> ENDSCAN
>NEXT
>release recBuffer
>SET INDEX TO
>ERASE SYS(2023)+'\RANDOM'
>
>SELECT SELECTION
>brow
>