John,
Try code like this to get rid of the macros:
loColumn = eval( "this." + alltrim( user.name ) )
with loColumn
.ColumnOrder = user.ColumnOrder
.Width = user.Width
endwith
>John,
>
>I solved the problem using the following syntax
>
>SELECT User
>
>LOCATE FOR User.FormName = ThisForm.Name
>DO WHILE FOUND( )
> lcColOrder = "This." + ALLTRIM(User.Name) + ".ColumnOrder"
> &lcColOrder = User.ColumnOrder
> lcColOrder = "This." + ALLTRIM(User.Name) + ".Width"
> &lcColOrder = User.Width
> CONTINUE
>ENDDO