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