>Hello everyone,
>
>I start off with a grid with no columns. The code below is in a method called "SetGrid" that is called by the grid's Init method. The problem I am having is that even though the grid appears to be OK and looks OK, when a cell becomes active, the cell takes on the colour of the background so you cannot see the value in the cell. Also, I cannot TAB between the columns?
>
>If anyone has any idea why this might be happening, I would be very grateful indeed!
>
>Thank you,
>
>Angie
>
>

>LOCAL nColItem, oColumn, cControlSource, cCaption, nWidth, nColCount, lReadOnly
>
>m.nColItem = 0
>m.nColCount = 5
>
>FOR m.nColItem = 1 TO m.nColCount
>	THIS.ADDCOLUMN(m.nColItem)
>	m.oColumn = EVALUATE('THIS.COLUMN' + TRANSFORM(m.nColItem))
>	WITH m.oColumn
>		DO case
>			CASE m.nColItem == 1
>				m.cControlSource = 'v_JobList.cJobNum'
>				m.cCaption = 'Job'
>				m.nWidth = 48
>				m.lReadOnly = .T.
>			CASE m.nColItem == 2
>				m.cControlSource = 'TTOD(v_joblist.dquoted)'
>				m.cCaption = 'Date'
>				m.nWidth = 74
>				m.lReadOnly = .T.
>			CASE m.nColItem == 3
>				m.cControlSource = 'v_joblist.ccustcode'
>				m.cCaption = 'Code'
>				m.nWidth = 45
>				m.lReadOnly = .T.
>			CASE m.nColItem == 4
>				m.cControlSource = 'v_joblist.csubcode'
>				m.cCaption = 'Sub'
>				m.nWidth = 45
>				m.lReadOnly = .T.
>			CASE m.nColItem == 5
>				m.cControlSource = 'v_joblist.cjobdesc'
>				m.cCaption = 'Desc'
>				m.nWidth = 200
>				m.lReadOnly = .T.
>		ENDCASE
>
>		m.oColumn.CONTROLSOURCE = m.cControlSource
>		m.oColumn.ADDOBJECT('myText1', 'Txttextboxcustom')
>		m.oColumn.CURRENTCONTROL = 'myText1'

m.oColumn.myText1.visible = .t. && Very important for controls added in run-time

>		m.oColumn.Width = m.nWidth
>		m.oColumn.ReadOnly = m.lReadOnly
>		m.oColumn.Header1.Caption = m.cCaption
>		m.oColumn.Header1.Alignment = 2
>	ENDWITH
>ENDFOR
>
>THIS.SETALL('FontSize', 8)
>THIS.REFRESH()
>

See inserted line in bold.