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
