hi all,

i need your help to add to my code under.

i have at mytable field(char10=area) as 1,2... to 14
i need to get 1400 randomly records from all areas.
1.index on char10 tag char10
2. as for i= 1 to 14
3.choice randomly less than or =100 record form ex... (theisform.text44.value) for every area
if any area didn't has 100 record,compleat the number from next area.

activate screen
SET TALK OFF
SET ECHO off
GETDIR()
thisform.text1.Value=GETFILE()
SET DEFAULT TO e:\samerqda
WAIT 'ÇáÑÌÇÁ ÇáÇäÊÙÇÑ ÌÇÑí ÇáÚãá'WINDOW AT 20,40 NOWAIT NOCLEAR 
LOCAL lcTableName
lcTableName = thisform.text2.value  
CREATE TABLE &lcTableName (char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
APPEND FROM (thisform.text1.value)TYPE XLS
*REPORT FORM nes preview

USE (thisform.text2.value) exclusive ALIAS SomeAlias
index on char9 tag char9
 select sys(2015) as SortOrder,* from SomeAlias into cursor crsTemp nofilter

select SomeAlias 
zap
select crsTemp
my_char3 = (thisform.combo1.value)
IF thisform.combo1.value="Óßäí"
thisform.combo1.value="100"
ELSE
thisform.combo1.value="200"
endif
SET FILTER TO char3=(thisform.combo1.value) 
SCAN

 if !seek(char9 ,'SomeAlias','char9') 
  scatter memvar MEMO 
 insert into (thisform.text2.value) from memvar
 endif
endscan

CREATE TABLE newamar66 (char1 C(10), char2 C(70),char3 C(10), ;
char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10), ;
char9 c(10), char10 c(40),char11 C(10), char12 C(60), ;
char13 C(50), char14 C(40),char15 C(10), char16 C(10), ;
char17 C(10), char18 C(70),char19 C(10), char20 C(10), ;
char21 C(10), char22 C(40),char23 C(10), char24 C(10), ;
char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
WAIT CLEAR
MESSAGEBOX('ÊãÊ ÇáÚãáíÉ',0+64)
CLOSE all
select sys(2015) as SortOrder,* from (ThisForm.Text2.Value) INTO ARRAY DUMMY 
 
my_char3 = thisform.combo1.value
INDEX ON RAND() TAG idx_rand
SET ORDER TO idx_rand
LOCATE
COPY TO newamar66 

m.a=thisform.text2.Value
CLOSE all
USE (m.a)
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  
   CANCEL
ENDIF

COPY TO (gcDelimFile) XLS   

thanks.
m.qasem