Добрый день.
Имеется окно, на котором расположены два TextBox. В первый вводится табельный номер, по которому нужно найти информацию в таблице uvrab.dbf. Найденная информация должна отобразиться во втором.

Код:

ID_poiska = thisform.Text1.Value
IF EMPTY(ID_poiska)
MESSAGEBOX("Не задан критерий поиска!", 48, "Внимание")
ELSE
select * from uvrab WHERE (Tab==ID_poiska)
thisform.Text2.Value = ALLTRIM(uvrab.Tab) + " " + ALLTRIM(uvrab.Fio)
endif

Выдает ошибку.

Как организовать поиск по вводимой пользователем строке?

BMJ, спасибо Вам большое :)

Вот, что у меня получилось в итоге:

ID_poiska = VAL(thisform.Text1.Value)
IF EMPTY(ID_poiska)
MESSAGEBOX("Не задан критерий поиска!", 48, "Внимание")
ELSE
USE uvrab
set filter to Tab==ID_poiska
browse
ENDIF

Т.е. в итоге должно получиться вот так?

ID_poiska = VAL(thisform.Text1.Value)
IF EMPTY(ID_poiska)
MESSAGEBOX("Не задан критерий поиска!", 48, "Внимание")
ELSE
SELECT uvrab
BROWSE FOR Tab==ID_poiska
ENDIF

Только у меня теперь другая проблема:( В любом случае таблица открывается как пустая. Даже в самой среде после выполнения команды browse. Сброс фильтров set filter to не помогает. Как это исправить?

Есть наверняка :) Просто я тоже подумала, что случайно удалила все данные, но открыла таблицу сторонним вьювером, там все отображалось

BMJ, наверное, я случайно таблицу испортила)) Сейчас заменила ее старой копией - стало все нормально