DataGridView Data Source Binding (Manual Data 方法)

Sub Binding_Source()
   Dim List As New DataTable("List")

   ' Column 1 Header
   List.Columns.Add(New DataColumn("Staff ID", GetType(String)))

   ' Column 2 Header
   List.Columns.Add(New DataColumn("Staff Name", GetType(String)))

   ' Column 3 Header
   List.Columns.Add(New DataColumn("Position", GetType(String)))

   ' Add Row
   List.Rows.Add(List.NewRow)

   ' Row 1 Data
   List.Rows(0)(0) = "S0001"
   List.Rows(0)(1) = "David"
   List.Rows(0)(2) = "Boss"

   ' Add Row
   List.Rows.Add(List.NewRow)

   ' Row 2 Data
   List.Rows(1)(0) = "S0002"
   List.Rows(1)(1) = "John"
   List.Rows(1)(2) = "Manager"

   ' Data Source Binding
   DG1.DataSource = List
   DG1.Columns("Staff ID").Width = 100
   DG1.Columns("Staff Name").Width = 100
   DG1.Columns("Position").Width = 100
End Sub