flexgrid的背景色问题

[1v1chen]

请问大家
如何让msflexgrid 的背景色可以隔一行换一种颜色
换句话说
就是
1，3，5。。。是绿色的
2，4，6。。。。是白色的
mshflexgrid好像可以的
不知道msflexgrid 如何实现

[rosyou]

'///////////
Private Sub Form_Load()
dim cl as integer
with msflexgrid
For cl = 1 To .cols-1
.Row = 3
.CellBackColor = &h00ffff
Next
End With
end sub

[1v1chen]

For i = 1 To Rs.RecordCount
For j = 1 To flexyz.Cols - 1
flexyz.Row = i '选择第I行
flexyz.Col = j
If i / 2 = Int(i / 2) Then '判断是单是双
flexyz.CellBackColor = RGB(224, 248, 224) '双行的底色
Else
flexyz.CellBackColor = RGB(240, 248, 224) '单行的底色
End If
Next j
Next i
错在哪里了
怎么显示不出来？

[tztz520]

不行.要自己一行一行填上去.

[1v1chen]

再顶