Hi all,

Hi have this code, TextBox(interactivechange event) to do a search listbox but didn't work, i think eveything is ok..:(.


local n_rec, cTrecho, lExac
ExpressList=thisform.list1.rowsource
n_rec=recno()
cTrecho=inke(0.3)
lExac=set("EXAC")
set exac off
If cTrecho=0
seek allt(this.value)
IF !eof()

>>>> When i type in TextBox i don't pass here! <<<<<<

thisform.LockScreen=.T.
thisform.list1.displayvalue=&expresslist
thisform.list1.TopIndex=thisform.list1.listindex
thisform.lockscreen=.f.

if thisform.list1.displayvalue=allt(this.value)
thisform.list1.SelectedItemBackColor=rgb(0,0,182)
else
thisform.list1.SelectedItemBackColor=rgb(182,0,0)
endif
thisform.LIST1.refresh()
else
thisform.list1.SelectedItemBackColor=rgb(182,0,0)
?? chr(7)
go n_rec
thisform.LIST1.refresh()
ENDIF
keyb chr(cTrecho)
endIF
set Exac &lExac

Thank's in Advance

João Batista
(Beginner VFP6)