>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!>
>>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 >>