I also, but I had already updated my message once when I saw it, and thought that was enough. :-)

>I would also change this:
>lcSearchtext=ALLTRIM(thisform.text1.Value)
>
>to this:
>
>lcSearchtext=UPPER(ALLTRIM(thisform.text1.Value))
>
>Peter
>
>>There is a sayoing in Norway, translated into English it will be "Don't expect to get something which you don't ask for". If you need the bookno field, you must also include it in your select statement, how else shall VFP understand that you need it?

>>lcSearchtext=ALLTRIM(thisform.text1.Value) && It's always best to make the search criteria a variable
>>Select bookno, sticket,eticket,NOOFTICKET,BOXNO,shipno,trans_type from trans1 ;
>> WHERE UPPER(shipno)=lcSearchtext ;
>>   into cursor csrmyCursor readwrite
>>*SELECT csrmyCursor && This line is NOT necessary!

>>
>>>hi all,
>>>
>>>i have cmd1 as addnew and cmd2 asedit at the same form,
>>>i try to make edit as under i get error message bookno not found
>>>

>>>Select sticket,eticket,NOOFTICKET,BOXNO,shipno,trans_type from trans1 ;
>>> WHERE UPPER(shipno)=ALLTRIM(thisform.text1.Value) ;
>>>   into cursor csrmyCursor readwrite
>>>   SELECT csrmyCursor
>>>   With thisform.Grid1
>>> .RecordSource = "csrmyCursor"
>>>.Columncount = 7
>>>  .Column1.ControlSource = "csrMyCursor.bookno"
>>>  .Column2.ControlSource = "csrMyCursor.sticket"
>>>  .Column3.ControlSource = "csrMyCursor.eticket"
>>>  .Column4.ControlSource = "csrMyCursor.noofticket"
>>>  .Column5.ControlSource = "csrMyCursor.boxno"
>>>  .Column6.ControlSource = "csrMyCursor.shipno"
>>>  .Column7.ControlSource = "csrMyCursor.trans_type"
>>>      .Refresh()
>>>ENDWITH
>>>