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.