Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim 数据表 As New DataSet()
数据表.Tables.Add()
Dim aa As DataTable = 数据表.Tables(0)
aa.Columns.Add("lb")
aa.Rows.Add("a")
aa.Rows.Add("b")
Dim biaoge As DataGridView = New DataGridView
biaoge.Parent = Me
biaoge.Location = New Point(10, 46)
biaoge.DataSource = aa
TextBox1.Text = biaoge.ColumnCount.ToString + "列"
TextBox1.Text += " " + biaoge.Columns.Count.ToString
表格控件颜色控制(biaoge, 1)
End Sub
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)
行数 -= 1
Loop While (行数 >= 0)
End Sub
这是个例子,其他的自己去修改.
datagridview的RowPostPaint事件中写相关代码