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.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()