SELECT 3 AS Order, sno,fexerno,empno,disc1,solveerror from trans1; > where fexerno=thisform.text2.value ; > into cursor crsMyCursor readwrite > >*-------------------------- >INSERT INTO crsMyCursor (Order, SNO) VALUES (1, thisform.text1.value) >INSERT INTO crsMyCursor (Order, SNO) VALUES (2, thisform.text2.value) >INDEX ON TRANSFORM (Order) + SNO TAG OrderSNO >*------------------------------------- > >gcDelimName = ALIAS( ) + '.xls' >gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >IF EMPTY(gcDelimFile) > CANCEL >ENDIF >COPY TO (gcDelimFile) XLS FIELDS EXCEPT Order>
>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) XLS