if DODEFAULT() and USED(This.Name )
 USE IN select(This.Name)
ENDIF

 CREATE CURSOR (NamCont)  ....
 INSERT INTO (NamCont)
 SELECT * from (NamCont) ORDER BY  15 , 16  INTO CURSOR (NamCont1) NOFILTER

 select (NamCont)
 i= 0 
 Local loColumn
 Scan && Перебираем информацию о контроллах, подлежащих включению в Grid, и формируем соответствующие контроллы в его составе
 	i=i+ 1  && Переменная для отслеживания номера текущей колонки Grid'а
 	dhl=Alltrim(CntrlSrc) && Вспомогательная переменная для хранения информации об источнике данных для текущего формируемого контролла и для колонки в целом (CntrlSrc - поле вспомогательного курсора, имя которого содержится в NamCont)
 	loColumn =  This.GridMain.Columns[i]
 	With loColumn
 		Do Case
 		Case Klas='EDITBOX'
 			.AddObject("Edit1","EDITBOX")
 			.CurrentControl = "Edit1"
 			.ControlSource=dhl && Вот тут и возникают проблемы, а как правильно сделать?
 			.Edit1.Visible = .T.
 		Case Klas='COMBOBOX'
 			.AddObject("Combo1","COMBOBOX")
 			.CurrentControl = "Combo1"
 			.ControlSource=dhl && Вот тут и возникают проблемы, а как правильно сделать?
 			.Combo1.Visible = .T.
 		Case Klas='CHECKBOBOX'
 			.AddObject("Check1","CHECKBOBOX")
 			.CurrentControl = "Check1"
 			.ControlSource=dhl && Вот тут и возникают проблемы, а как правильно сделать?
 			.Check1.Visible = .T.
 		Case Klas='SPINNER'
 			.AddObject("Spin1","SPINNER")
 			.CurrentControl = "Spin1"
 			.ControlSource=dhl && Вот тут и возникают проблемы, а как правильно сделать?
 			.Spin1.Visible = .T.
 		Otherwise
 			.CurrentControl = "Text1"
 			.ControlSource=dhl
 			.Text1.Visible = .T.
 		Endcase
 		&& This.GridMain.Columns[i].ControlSource=&dhl && Здесь тоже возникают проблемы... А нужно ли вообще задавать ControlSource для колонки, если он уже задан для ее CurrentControll'а?
 		.Sparse = .F.
 	Endwith
 Endscan

LOCAL lcBaseClass

IF this.lRelease
	NODEFAULT
	RETURN .F.
ENDIF
this.lRelease=.T.
lcBaseClass=LOWER(this.BaseClass)
this.oHost=.NULL.
this.ReleaseObjRefs
IF NOT INLIST(lcBaseClass+" ","form ","formset ","toolbar ")
	RELEASE this
ENDIF