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,