Hej

Jag vill att man ska kunna ha en annan färg på vartannan rad i en flexgrid

typ så här

For i = 1 To MSFlexGrid1.Rows
For x = 0 to MSFlexGrid1.Rows Step 2

MSFlexGrid1.Col = i
MSFlexGrid1.Row = x

MSFlexGrid1.Row = x + 1
MSFlexGrid1.CellForeColor = &H0&
MSFlexGrid1.CellBackColor = &HEEEEDD

Next ix
next i

Någon som vet eller!

Ha! funkade efter att jag la in koden här konstigt va?

Hälsningar
Tobbe

Ska det inte vara
<code>
Dim Row As Long
Dim Column As long

For Row = 1 To MSFlexGrid1.Rows Step 2
MSFlexGrid1.Row = Row

For Column = 0 to MSFlexGrid1.Columns
MSFlexGrid1.Col = Column
MSFlexGrid1.CellForeColor = &H0&
MSFlexGrid1.CellBackColor = &HEEEEDD
Next
Next
</code>

Hej

Det ska det säkert vara skall testa.

/Tobbe

Hej

Fick ändra till

Dim Row As Long
Dim Column As Long

For Row = 1 To MSFlexGrid1.Rows Step 2
MSFlexGrid1.Row = Row

For Column = 0 To MSFlexGrid1.Cols
MSFlexGrid1.Col = Column
MSFlexGrid1.CellForeColor = &H0&
MSFlexGrid1.CellBackColor = &HEEEEDD

Next
Next

då funkar det tackar

/
Tobbe