thank you for reply,
it works but thisform.text1.value =employee name &&character

also the insert statment go to end of sheet as line6 and line7 not line 1 and 2

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


thanks.


>

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

>
>>i need help to insert thisform.text1.value and thisform.text2.value at first and second records excel sheet via code as

>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