Sub 表格控件颜色控制(表格控件 As DataGridView, 参数 As Int16)
Dim 行数 As Int16 = 表格控件.Rows.Count - 1
Do
'表格控件.Rows(行数).DefaultCellStyle.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
表格控件.Rows(行数).Cells(0).Style.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
'表格控件.Columns(行数).DefaultCellStyle.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
行数 -= 1
Loop While (行数 >= 0)
End Sub
Dim biaoge As DataGridView = New DataGridView
biaoge.Parent = Me
biaoge.Location = New Point(10, 46)
biaoge.DataSource = 数据表
表格控件颜色控制(biaoge, 1)