>FOR EACH loColumn IN This.Columns
> lcColumnControlName = loColumn.CurrentControl)
> loColumn.RemoveObject(lcColumnControlName)
> loColumn.AddObject(lcColumnControlName,"MyControl")
> STORE .T. TO ("loColumn." + loColumn.CurrentControl + ".Visible")
>ENDFOR
Rex,
I think the problem is on the STORE line, change it to
STORE .T. TO loColumn.CurrentControl.Visible
OR
loColumn.CurrentControl.Visible = .T.