Hi Erick

I try this

IF &lcAliasDoc..n_transffac_6=1
	.pageframe1.Page1.grid1.ColumnCount=9

	.pageframe1.Page1.grid1.Column9.RemoveObject('Text1')

	.pageframe1.Page1.grid1.Column9.NEWobject('Text1','myTextBox','add_grid_column.prg')
	.pageframe1.Page1.Grid1.Column9.controlsource=lcAliasLinDoc+'.d_data_entrega'	

ENDIF

But the cursor goes until 8 column, and don't jump to the 9th column, it acts like readonly.

Anything wrong here?

João Batista