Peter,

Two corrections below. When you add a control to a column, you have to set its visible property to TRUE

>In a programatically initialised grid I can't type in the _textbox or for that matter see the combo I've added during the same init.
>
>The data do show up, but when I select a cell the value disappears and typing does nothing.
>
>What am I doing wrong?
>
>

>WITH THIS
>	.COLUMNCOUNT  = 15
>	FOR i = 1 TO .COLUMNCOUNT
>		.Columns(i).RemoveObject('Text1')
>		.Columns(i).NEWOBJECT('_Text1','_TextBox')
>		.Columns(i).CurrentControl = '_Text1'

                .Columns(i)._text1.Visble = .T.

>	ENDFOR 	
>
>	.RECORDSOURCE = 'CBInvoice'
>	.Column1.CONTROLSOURCE  = 'CBInvoice.CO_Date'
>	.Column2.CONTROLSOURCE  = 'CBInvoice.CI_Date'
>	.Column3.CONTROLSOURCE  = 'CBInvoice.Cnty_No'
>	.Column4.CONTROLSOURCE  = 'CBInvoice.CarType'
>	.Column5.CONTROLSOURCE  = 'CBInvoice.Days'
>	.Column6.CONTROLSOURCE  = 'CBInvoice.PricePerDay'
>	.Column7.CONTROLSOURCE  = 'CBInvoice.SubTotal'
>	.Column8.CONTROLSOURCE  = 'CBInvoice.OWFee'
>	.Column9.CONTROLSOURCE  = 'CBInvoice.Delivery'
>	.Column10.CONTROLSOURCE = 'CBInvoice.CDW'
>	.Column11.CONTROLSOURCE = 'CBInvoice.PAI'
>	.Column12.CONTROLSOURCE = 'CBInvoice.TP'
>	.Column13.CONTROLSOURCE = 'CBInvoice.Gas'
>	.Column14.CONTROLSOURCE = 'CBInvoice.Misc_I'
>	.Column15.CONTROLSOURCE = 'CBInvoice.Misc_E'
>
>	.Column1.Header1.CAPTION  = 'CO Date'
>	.Column2.Header1.CAPTION  = 'CI Date'
>	.Column3.Header1.CAPTION  = 'Country'
>	.Column4.Header1.CAPTION  = 'Type'
>	.Column5.Header1.CAPTION  = 'Days'
>	.Column6.Header1.CAPTION  = 'Price/Day'
>	.Column7.Header1.CAPTION  = 'Amount'
>	.Column8.Header1.CAPTION  = 'OW Fee'
>	.Column9.Header1.CAPTION  = 'Delivery'
>	.Column10.Header1.CAPTION = 'CDW'
>	.Column11.Header1.CAPTION = 'PAI'
>	.Column12.Header1.CAPTION = 'TP'
>	.Column13.Header1.CAPTION = 'Gas'
>	.Column14.Header1.CAPTION = 'Misc. Include'
>	.Column15.Header1.CAPTION = 'Misc. Exclude'
>
>	.Column3.RemoveObject('_Text1')
>	.Column3.NEWOBJECT('Combo1','_Combo')
>	.Column3.CurrentControl	      = 'Combo1'	
>	.Column3.Combo1.RowsourceType = 6
>	.Column3.Combo1.Rowsource     = 'CountryPicker.cnty_name,cnty'
>	.Column3.Combo1.Style 	      = 2
>	.Column3.Combo1.SpecialEffect = 1
>	.Column3.Combo1.Margin	      = 0
>	.Column3.Combo1.BorderStyle   = 0
>	.Column3.Combo1.BoundColumn   = 2

        .Column3.Combo1.Visible = .T.


>	.Column3.Sparse = .F.
>ENDWITH