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