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'
	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.Sparse = .F.
ENDWITH