Есть код программы для поиска цифр в listbox через Textbox, а нужен поиск символов(букв) ,а не чисел.
*wait window program()
nKey = 0
nKey = inkey(1/4) RNN=recno("V_DOR")
if nKey = 0
FND_LINE = upper(allt(This.Value))
if seek(allt(FND_LINE),"V_DOR")
ThisForm.List_VIBDOR.Value = v_dor.KOD
ThisForm.Red_Green.Picture = "GreenButton.bmp"
else
wait window nowait "
go RNN
ThisForm.List_VIBDOR.Value = v_dor.KOD
ThisForm.Red_Green.Picture = "RedButton.bmp"
endif
clea typeahead
else
keyboard chr(nKey) plain
endif