long	ll_rfound
string	ls_microhelp=''

if ib_char_down then
	ll_rfound = dw_data.Find("Upper(string("+is_colname+")) LIKE '"+Upper(this.text)+"%'",  1 , il_rowcount)
	if ll_rfound= 0  then 
		ls_microhelp="Образец для поиска '"+this.text+"' не найден."
		this.TextColor= 255 
	else
		this.TextColor= 0 
	end if
	dw_data.ScrollToRow(ll_rfound)
	ib_char_down = false
	dw_data.SetRedraw(true)
end if

dw_data.SetRedraw(false)
choose case key
	case KeyUpArrow!
		dw_data.ScrollToRow(dw_data.GetRow() -  1 )
	case KeyDownArrow!
		dw_data.ScrollToRow(dw_data.GetRow() +  1 )
	case KeyPageUp!
		dw_data.ScrollPriorPage()
	case KeyPageDown!
		dw_data.ScrollNextPage()
	case else
		ib_char_down = true
end choose
if not ib_char_down then dw_data.SetRedraw(true)
return  1