Are you trying to tell me something? Please understand that I am not interested in finding errors in your code by trying to analyze it. But I am interested in making you a better programmer by giving you hints on how to do things the best way.

First try my way, and if you don't get it to work, you can ask specific questions. Your code to start he report should be something like this

thisform.grid2.SetFocus()
Select xxxxx from yyy where zzzz into cursor curReport && CurReport will drive the report
REPORT FORM rept1 preview

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