Hi Don,

I think the columns ar not deleted properly, you can do this the easiest way by issue-ing the following command:

*!* Set to default = -1, which specifies that the Grid control should contain
*!* enough columns to accommodate all the fields in the grid's record source. 
oGrid.ColumnCount = -1
*!* Set correct recordsourcetype
if oGrid.RecordSourceType # 1
	oGrid.RecordSourceType = 1 && alias
endif
*!* get the DE
= aselobj(aAns,2)
oDE = aAns[1]
oGrid.RecordSource = oDE.Cursor1.Alias
*!* change columns to cusColumn
for nCol = 1 to oGrid.ColumnCount
	with oGrid
		cColumn = "Column" + alltrim(str(nCol))
		.RemoveObject(cColumn)
		.AddObject(cColumn, "cusColumn")
	endwith
endfor

HTH,

Leo