LPARAMETERS nKeyCode, nShiftAltCtrl
IF BETWEEN(nKeyCode, 224 , 255 )
	thisform.Tag=thisform.Tag+CHR(nKeyCode)
	this.RowSourceType=  3  
	this.RowSource='select fam from sad where fam like "' + thisform.Tag + _
	'%" into cursor temp'
	this.refresh
ENDIF 

*!* List.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF BETWEEN(nKeyCode,  224 , 255 )  &&  192 ;- 255 ;
	NODEFAULT
	this.Tag=this.Tag+CHR(nKeyCode)
	this.RowSourceType=  3  
	this.RowSource='select fam from sad where fam like "'+this.tag+ ;
	'%" into cursor temp order by fam'
	this.ListIndex= 1 
ENDIF 
IF nKeyCode= 27  && Esc
	this.Tag=''
	this.RowSourceType=  3  
	this.RowSource='select fam from sad into cursor temp order by fam'
	this.ListIndex= 1 
ENDIF 

*!* ListBox.DblClick
do form NewForm with this.value

*!* NewForm.Init
lparameters cParam
this.Caption=cParam

	NODEFAULT

	this.Tag=this.Tag+UPPER(CHR(nKeyCode)) && изменено

	this.RowSourceType=  3  
	this.RowSource='select fam from sad where upper(fam) like "'+this.tag+ ;

	'%" into cursor temp order by fam' && изменено

	this.ListIndex= 1 

*!* Form.Load
use sad in  0 

*!* Form.Unload
if used('sad')
   use in sad
endif
if used('temp')
   use in temp
endif

IF INDEXSEEK(temp.dr, .T., 'sad', 'dr')
   DO FORM NewForm
ENDIF