SELECT sno,fexerno,empno,disc1,solveerror from trans1; where fexerno=thisform.text2.value ; ORDER by sno; into cursor crsMyCursor readwrite *-------------------------- **first record(line1)=thisform.text1.value **second record(line2)=thisform.text2.value **select statment begin from line 3 *------------------------------------- gcDelimName = ALIAS( ) + '.xls' gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') IF EMPTY(gcDelimFile) CANCEL ENDIF COPY TO (gcDelimFile) XLSthanks