Hi Mohammed,
>hi,
>thank yoy for reply.
>i need a sample for cursor with record that i want to print.
>this is my code but didn't work,to return back to mygrid.>select 2
>locate for ALLTRIM(no)=upper(ALLtrim(THISFORM.TEXT1.VALUE)) .and. cod=1
>if found()
>set filter to ALLTRIM(no)=upper(ALLtrim(THISFORM.TEXT1.VALUE)) .and. cod=1
>report form rept2 preview
>endif
>thisform.grid2.setfocus
>regards
lsNo = upper(ALLtrim(THISFORM.TEXT1.VALUE))
Select * From MyTable ;
Where ALLTRIM(no) = lsNo and Cod=1 ;
Into Cursor MyCursor
if RecCount("MyCursor") > 0
Report form rept2 preview
endif
select 2
Use In MyCursor
thisform.grid2.setfocus()Is it that you need?
Erick
Força Sempre!
Strength Always!
