>>CLOSE all >>USE x2 >> INDEX on f4 TO kk >> *index on f1 tag f1 >>lcTempVariable=ALLTRIM(thisform.text1.value) >>LOCATE fOR f1=lcTempVariable >>thisform.text2.value=f4 >>lcTempVariable=f4 >>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=lcTempVariable; >>order BY f5; >>into CURSOR mycur >>thisform.grid1.RecordSource="mycur" >>**COUNT TO s >>s=_tally && s is a TERRIBLE variable name >>>>
>>>lcTempVariable=ALLTRIM(thisform.text1.value) >>>LOCATE fOR f1=lcTempVariable>>>And later in your code:
>>>thisform.text2.value=f4 >>>lcTempVariable=f4 >>>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=lcTempVariable; >>>order BY f5; >>>into CURSOR mycur >>>**COUNT TO s >>>s=_tally && s is a TERRIBLE variable name, use something meaningful!!!>>>
>>>>USE x2 >>>>INDEX on f4 TO kk >>>>LOCATE fOR f1=ALLTRIM(thisform.text1.value) >>>>IF FOUND() >>>> >>>>thisform.text2.value=f4 >>>>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=(thisform.text2.value); >>>>order BY f5; >>>>into CURSOR mycur >>>>COUNT TO s >>>>thisform.grid1.RecordSource="mycur" >>>> >>>>ELSE >>>>MESSAGEBOX("not found") >>>>ENDIF >>>>>>>>