thank you,
this code works fine,no errors

i want to show you what i need ,

i need to print what i have at the gride when i run the code, and keep it

thanks



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