MrIgorOKПомогите пожалуйста осуществить поиск по гриду.
Вот каким способом я пытаюсь сделать

LOCATE FOR upper(книги.раздел)=UPPER(ALLTRIM(thisform.text1.Value))
do while FOUND()

CONTINUE
enddo
IF !FOUND()
MESSAGEBOX('Запись не найдена')
ENDIF
thisform.Refresh

не понимаю почему не работает данный код, при любом исходе он выдаёт что запись не найдена,
ещё мне нужно что бы он как то хотя бы выделял что надёт в гриде....

А так:

SELECT Книги
LOCATE FOR UPPER(ALLTRIM(раздел))=UPPER(ALLTRIM(thisform.text1.Value))
DO WHILE NOT FOUND()
CONTINUE
ENDDO
IF !FOUND()
MESSAGEBOX('Запись не найдена')
ENDIF
THISFORM.Refresh

MrIgorOKAndreTM,

без цикла он переведёт курсор на второй найденый результат, а до 3, 4, 5 и т.д не дойдёт
А что, нужна последняя найденная запись?

MrIgorOKIgorNG,
не совсем
в результате когда допишу поиск я хочу что бы в гриде он все совпадения например выделил, а если CONTINUE написать не в цикле он продолжает поиск до седующего совпадения а не до последнего, по этому без цикла я думаю ни как нельзя

Без цикла можно SELECTом выбрать все записи по заданному условию и показывать только их. Все зависит от решаемой задачи.
Если в Grid много строк, то искать подкрашенные непросто, да и красить геморно.