hi all,
any advice,
this statment notactivate (my_char3 = thisform.combo1.value)

activate screen
SET TALK OFF
SET ECHO off
GETDIR()

thisform.text1.Value=GETFILE()

SET DEFAULT TO e:\samerqda
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 && now it should work
zap
select crsTemp
my_char3 = thisform.combo1.value &&& rong position 
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)
CLOSE all
select sys(2015) as SortOrder,* from (ThisForm.Text2.Value) ;

my_char3 = thisform.combo1.value
INDEX ON RAND() TAG idx_rand
SET ORDER TO idx_rand
LOCATE
*COPY TO newamar66 NEXT 450 
 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)  && Esc pressed
   CANCEL
ENDIF
COPY TO (gcDelimFile) xls  && Create delimited file

thanks.