Is there a faster way to resize grid?

[paul]

I need to resize a msflex grid. I am using DAO to fill the grid.
This code works but is slow when I have a lot of results.

Private Sub resizegrid()
Dim r As Long, c As Long
r = 1

Do Until r >= MSFlexGrid1.Rows 'loop thru rows
With MSFlexGrid1
.Row = r
For c = 0 To (.Cols - 1) 'move thru each cell in row
.Col = c

.RowHeight(r) = 600
Next c
End With
r = r + 1


Loop
End Sub



I could use a progress bar (if I knew how).

Any Suggestions welcome.

[John McKernan]

Try this:

Private Sub resizegrid()
   Dim r As Long, c As Long
   r = 1
 
   MSFlexGrid1.Redraw = False   'turn off redrawing
   Do Until r >= MSFlexGrid1.Rows 'loop thru rows
      With MSFlexGrid1
         .Row = r
         For c = 0 To (.Cols - 1) 'move thru each cell in row
            .Col = c
 
            .RowHeight(r) = 600
         Next c
      End With
      r = r + 1
   Loop
   MSFlexGrid1.Redraw = True  'redraw grid
End Sub

[paul]

Thanks for the help!

[brucevde]

Is there more code in your For Loop that you are not showing? It doesn't make sense to call RowHeight for every column. In fact there is no need to use a loop at all. If you specify -1 as the row index to RowHeight all rows will be adjusted.

The following method is instantaneous on a grid with 15000 rows and 10 cols - even on my PII 300mhz 128mb RAM.

With MSFlexGrid1
    .Redraw = False
    [B].RowHeight(-1) = 600[/B]     
    .RowHeight(0) = 300 '
    .Redraw = True
End With