>Greetings,
>
>I am trying to design a class that contains a text box and a list box. (Similar to the help in windows). I want to be able to type in text in the text box and as the user enters data, I want the list box to select the row that matches.
>
>The code below works great as long as the index order matches the record number. When I index a table and set the order, the record number always stays with the record. How do I refer to the correct item in the list when the record number and listindex do not match?
>
>Thanks in advance,
>
>Scott
>
>I am using VFP 3.0b.
>
>
>***Text 1 interactivechange event
>set exact off
>seek alltrim(upper(this.value))
>
>if found()
> nRec = recno()
> this.parent.list1.selected(nRec) = .t.
>endif
>
>this.refresh
Try to set Listbox.Value and then Setfocus:
SELECT mycursor
SEEK ...
IF FOUND()
With Thisform.MyListbox
.Value=mycursor.myfield
.Setfocus
Endwith
ENDIF
Edward Pikman
Independent Consultant