>Hi Vinod, I 've using this code for a long time:
>
>Note: List1.REcordsource is a table.
>
>In the Text1.InteractiveChange() type this:
>
>
>LOCAL cVal, cLen, c1st, c2nd, c3rd, n1st, n2nd, n3rd, nTop, nEnd, ;
> nMax, oList
>
>oList = THISFORM.List1
>* 1st = 1 to n2nd-1
>nMax = oList.LISTCOUNT
>IF nMax <= 10
> cVal = ALLTRIM(UPPER(This.Value))
> nTop = 1
> nEnd = nMax
>ELSE
> n1st = INT(nMax * .25) && 1er. Cuarto
> n2nd = INT(nMax * .50) && 2do Cuarto
> n3rd = INT(nMax * .75) && 3er Cuarto
> c1st = UPPER(oList.LISTITEM[n1st])
> c2nd = UPPER(oList.LISTITEM[n2nd])
> c3rd = UPPER(oList.LISTITEM[n3rd])
> cVal = ALLTRIM(UPPER(THIS.VALUE))
> cLen = LEN(cVal)
> DO CASE
> CASE cVal <= LEFT(c1st,cLen)
> nTop = 1
> nEnd = n1st
>
> CASE cVal <= LEFT(c2nd,cLen)
> nTop = n1st + 1
> nEnd = n2nd
>
> CASE cVal <= LEFT(c3rd,cLen)
> nTop = n2nd + 1
> nEnd = n3rd
>
> OTHERWISE
> nTop = n3rd + 1
> nEnd = nMax
> ENDCASE
>ENDIF
>FOR nIndex = nTop TO nEnd && Searh each items
> IF UPPER(ALLTRIM(oList.LISTITEM[nIndex])) = cVal
> oList.LISTINDEX = nIndex
> EXIT
> ENDIF
>ENDFOR
>oList.REFRESH

Thanks for the code.. Actually I'm using array for the list.. So I guess I'll have to modify this code....

I'll try that and see.. I'm facing another problem which I've written as a reply to Don Rapp... Pls see that and advs...