FoxPro - Инкрементный поиск в Grid (живой поиск)

[pligin Участник]

FoxPro - Инкрементный поиск в Grid
В InteractiveChange текстового поля Text1 вставить следующий код

xfi=ALLTRIM(thisform.Text1.Value)
IF LEN(xfi)>0 && указываем с какого количества символов начинает работать поиск
     SELECT table && выбор таблицы
     SET FILTER TO column = xfi && сортировка по графе column
     GO TOP
ENDIF
thisform.grid1.Refresh()