DataGrid好像不好隔行设置颜色吧,可以选择用MSHFlexGrid,而且更好点。
MSHFlexGrid.FillStyle = 1 '表示所有选定的MSHFLEXGRID的单元都进行修改
For i = 1 To MSHFlexGrid.Rows - 1 '遍历所有行
MSHFlexGrid.Row = i
If i Mod 2 = 0 Then
MSHFlexGrid.Col = 0 '表示从第一列开始
MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1 '返回总列数
MSHFlexGrid.CellBackColor = &H8000000F '定义背景色
End If
Next i