for i= 1 to msflexgrid1.rows step 2 msflexgrid.cellbackcolor=...... next i
详细点,应该是: Dim i%, j% For i = 1 To MSFlexGrid1.Rows Step 2 MSFlexGrid1.Row = i For j = 0 To MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = j MSFlexGrid1.CellBackColor = vbRed Next j Next i 这个其实还是需要根据不同的msflexGrid有点改正的
msflexgrid.cellbackcolor=......
next i
Dim i%, j%
For i = 1 To MSFlexGrid1.Rows Step 2
MSFlexGrid1.Row = i
For j = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = j
MSFlexGrid1.CellBackColor = vbRed
Next j
Next i
这个其实还是需要根据不同的msflexGrid有点改正的