Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
ListBox Search Problem.
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)
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement