Procedure Click
		Local lcControlSource, lcField, lcTable, llIsSetOrder

		lcControlSource = This.Parent.ControlSource
*!* Берем Алиас из ControlSource колонки
		lcTable = Getwordnum(lcControlSource, 1 ,'.') 
*!* Обработка Алиаса
***************************************************
		lcTmpStr	=	''
		For j = Len(lcTable) To  1  Step - 1 
			lcString	=	Substr(lcTable, j,  1 )
			If	Isalpha(lcString) .Or. lcString == '_'
				lcTmpStr	=	lcString	+	lcTmpStr
			Else
				Exit
			Endif
		Next
		lcTable	=	lcTmpStr
***************************************************
*!* Берем Fields из ControlSource колонки
		lcField = Getwordnum(lcControlSource, 2 ,'.')
*!* Обработка Поля
***************************************************
		lcTmpStr	=	''
		For j =  1  To Len(lcField)
			lcString	=	Substr(lcField, j,  1 )
			If	Isalpha(lcString) .Or. lcString == '_'
				lcTmpStr	=	lcTmpStr	+	lcString
			Else
				Exit
			Endif
		Next
		lcField	=	lcTmpStr
***************************************************
*!* Дальше обрабатываем по типам данных и соотв. формируем Индексное выражение Пример для типа Date
		If Vartype(&lcControlSource) = 'D'
			lcField = 'Dtos(' + lcField + ')'
		Endif
...
		Select (lcTable)
		lcTable = '.\data\' + lcField
		Index On &lcField To (lcTable) Compact
		Thisform.Refresh()