Dim dt As New DataTable
dt.Columns.Add("列名1", GetType(String))
dt.Columns.Add("列名2", GetType(Integer))
dt.Columns.Add("列名3", GetType(Boolean))
Dim row As DataRow = dt.NewRow
row("列名1") = "xxx"
row("列名2") = 100
row("列名3") = False
dt.Rows.Add(row)
Dim dgv As New DataGridView
Me.Controls.Add(dgv)
dgv.DataSource = dt
