thank you for reply,

If Seek(ALLTRIM(thisform.text8.value), "X2", "f1")
      local lcFind
      thisform.text5.Value=f1
  Store F4 to lcFind, thisform.text9.value
     SELECT F5,f3,f2,f1 FROM x2 WHERE f4=m.lcFind;
     order BY f5;
     into CURSOR mycur NOFILTER
  
thisform.grid2.Visible=.t.
  thisform.text7.value = Reccount()
  thisform.grid2.RecordSource="mycur"

i run the report as via command button

 thisform.grid2.SetFocus()
  REPORT FORM rept1 preview

>>hi all,
>>
>>any help to keep all grids have information after i run the
>>
>>REPORT FORM rept1 preview
>>
>>thanks
>
>Don't run the report from the same cursors. Instead you run a separate SQL select statement to create a cursor which drives the cursor.