Доброго дня всем! При поиске в гриде приложение виснет и грузит машину:

IF NOT USED("table1")
USE "table1" excl IN 0
ENDIF
dat_vd=alltrim(ThisForm.Text1.value)
per_vd=len(alltrim(dat_vd)) &&длинна вводимой переменно

if per_vd>0
sele table1
DO WHILE !EOF()
ff_k1=alltrim(TABLE1.adrsite)
ff_k2=alltrim(TABLE1.contact)
*ff_k3=alltrim(TABLE1.id)
ff_k4=alltrim(TABLE1.namesite)
ff_k5=alltrim(TABLE1.ncount)
ff_k6=alltrim(TABLE1.owner)
*------------------------------------------------------------------проверка
dat_od=alltrim(TABLE1.namesite)
per_od=len(alltrim(dat_od)) &&длинна данной из базы

sh_ptp=per_od-(per_vd-1) && шаг одбора
add_df=sh_ptp
ik=1
dd=len(alltrim(dat_vd))
do whil ik=<sh_ptp

if UPPER(substr(alltrim(dat_od),ik,dd))=UPPER(alltrim(dat_vd))
sele TMP_TABLE1
append blank
repl TMP_TABLE1.adrsite with ff_k1
repl TMP_TABLE1.contact with ff_k2
repl TMP_TABLE1.namesite with ff_k4
repl TMP_TABLE1.ncount with ff_k5
repl TMP_TABLE1.owner with ff_k6
*!* WAIT WINDOWS ff_k2 TIMEOUT 0.75
thisform.refresh

endif
ik=ik+1
enddo
ENDDO
endif

Думаю баг в переменных но не пойму где...

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