This.AddColumn(lnNewNumber)				
	With This.Columns(lnNewNumber)
                    .....
             EndWith

This.AddColumn(lnNewNumber)				
With This.Columns(lnNewNumber)
    .backColor = this.BackColor
    For j=.ControlCount To  1  Step - 1 
	If .Controls(j).BaseClass="Textbox"
	 .RemoveObject(.Controls(j).Name)
             Endif
    Endfor
   .AddObject("txt", "txt_grd", tcAlias+'.'+laField( 1 ))
   * Настраиваем свойства колонки
   .Visible = .T.
   .ControlSource   = tcAlias+'.'+laField( 1 )
   .Header1.Caption = laField( 2 )
   .Width    = Iif(lnArray> 2 ,Val(laField( 3 )),.Width)
   .ReadOnly = Iif(lnArray> 3 ,!(Lower(laField( 4 ))=".t."),.T.)
Endwith