thank you for reply,

i try it as below it take between 1 to lesthan 2 Minutes? i think it must be faster

mytable have more than 6 milion records

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

>Sorry, my presed the wrong button...
>
>First of all, unless you work with cursors, INDEX shall NEVER be a part of normal code! Period! End of discussion! Instead you use a structural index. I believe I have said this before.....
>
>Secondly, you NEVER locate for an object value, instead you use a variable

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

>
>>Hi all,
>>
>>i try to see result at mygrid , but it is very slow operation,
>>
>>f1=national number
>>f4=my file number as 00123/234
>>
>>at my grid i must see all records have the same file number
>>

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

>>
>>thanks