Grid控件怎样设置某行的颜色与其他的行不同啊??

来源：百度知道 编辑：UC知道 时间：2024/07/08 02:32:37
根据我记录的值不同而变??怎样写?
是datagrid,企业版6.0

新建一个程序,放一个msflexgrid,然后把下面代码复制进去,看看效果
Private Sub Form_Load()
MSFlexGrid1.Rows = 100
MSFlexGrid1.Cols = 5
Dim i As Integer, j As Integer
For i = 1 To 99
MSFlexGrid1.Row = i
If i Mod 2 = 0 Then
For j = 1 To 4
MSFlexGrid1.Col = j
MSFlexGrid1.CellBackColor = vbRed
MSFlexGrid1.Text = i
Next
Else
For j = 1 To 4
MSFlexGrid1.Col = j
MSFlexGrid1.CellBackColor = vbBlue
MSFlexGrid1.Text = i
Next
End If
Next
End Sub