Another Grid Problem,
Grid.Init Event

This.recordsource='mytable1'
This.ColumnCount=3

Grid.Refresh
This.RecordSource=This.RecordSource

LOCAL lcCol
THIS.column1.Width=40
FOR i=2 TO This.ColumnCount
lcCol="This.Column"+ALLT(STR(i))
&lcCol.Width=100
ENDFOR

Grid1.ProgrammaticChange
Parameter cSelect
Do Case
Case cSelect=1
Select * From myTable1 Into myTempCursor
Case cSelect=2
Select * From myTable2 Into myTempCursor
Endcase
DO vfpxtab WITH 'mytable'
This.Refresh()

And Last Column of this grid changed it's width to 75 even though I put Column Width on grid.refresh()
When I trace it, no problem with the code.
Can someone help me?

TIA