hi,
i try t change but still the same.
(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 
CREATE TABLE (m.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
GO TOP
DELETE NEXT 3
select sys(2015) as SortOrder,* from SomeAlias ;
 into cursor crsTemp nofilter

select SomeAlias && now it should work
zap
select crsTemp
SET TALK OFF
SET ECHO off
my_char3 = thisform.combo1.value
scan
 if !seek(char9 ,'SomeAlias','char9')

? thisform.combo1.value 
scatter memvar memo
 insert into (thisform.text2.value) from memvar
 endif
endscan
*CREATE TABLE &lcTableName
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) ;

INDEX ON RAND() TAG idx_rand
SET ORDER TO idx_rand
LOCATE
COPY NEXT 4500 TO newamar66

*m.a=thisform.text2.Value
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  && Esc pressed
   CANCEL
ENDIF
COPY TO (gcDelimFile) xls for recno()>2 AND my_char2 = thisform.combo1.value && or 1
***********************************

thanks.