This does not seem to do it. After looping thru and doing the .DeleteColumns the .ColumnCount is left at 0. Setting it to -1 does not seem to help

Thanks

>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