James..

Have a look at Vlad's grid reconstruction article in the UT magazine
I think he also has a FAQ - just search for reconstruction
It explains what is happening and a couple of solutions for this problem

Will

>Never mind I solved it, I think.
>
>I found that if I set the grids RecordSource to "Selection" in design mode (which I was previously leaving blank) and I Re-Set the RecordSource to "Selection" in the Activate event then it works.
>
>Huh??.... go figure.
>
>Aloha,
>
>James
>
>>Hi All,
>>
>>Here's a weird one, hopefully someone's seen this before.
>>
>>I have a form that runs a query on a large file and saves the data to a table. I want the user to be able to view the data to be sure that's the data set they intended to get.
>>
>>There is a page frame on my form. The first page is setup the query parameters, the second page is to display summaries of the data, the third page gives output options and the fourth page simply has a grid on it to display the data. I have code in the Activate event that will hide the grid and display a label control to the user that basically says "Run a Query before trying to look at the results", just a little nicer. If the user did run a query it sets the RecordSource, the Column Count (only because this problem started) and Refreshes the Grid. The problem is that the first time I view the page the grid displays only the first few columns of data, maybe 8 or 10 with the appropriate headers. If I go to another page and then go back to the "View Data" page, all the data is there!!!! However, the headers for the subsequent columns all read "Header1" of course.
>>
>>Anyone got any clues??
>>
>>Aloha,
>>
>>James
>>
>>Here is the code in my pages Activate method
>>
>>

>>If Used("Selection")
>>  Select ("Selection")
>>  Locate  && Go to the top
>>
>>  This.lblDataMessage.Visible = .F.
>>  With This.grdData
>>    .Visible = .T.
>>    .RecordSource = "Selection"
>>    .ColumnCount = FCount()
>>    .Refresh()
>>  EndWith
>>Else
>>  This.lblDataMessage.Visible = .T.
>>  This.grdData.Visible = .F.
>>EndIf
>>