>>Select bookno,sticket,eticket,NOOFTICKET,BOXNO,shipno,trans_type from trans1 into cursor csrmyCursor readwrite where .F. >>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"&&&&&&HIDE AT MY FORM(GRID1) >>.Column7.ControlSource = "csrMyCursor.trans_type"&&&&&HIDE AT MY FORM(GRID1) >> append blank >> .Refresh() >>ENDWITH >>>