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