IF PEMSTATUS(m.THISFORM.Grid1, alltrim(field(i)),5)
 * exists
ELSE
 THISFORM.Grid1.AddColumn(i)
 THISFORM.Grid1.Columns(THISFORM.Grid1.ColumnCount).Name = alltrim(field(i)) && Field(i)
ENDIF