DataGridView

Private Sub CreateScaffolding()
        'This code binds the three DataGridView controls
        'and establishes their display characteristics
        Dim dgv As DataGridView

ds  = New  DataSet()

dgv = Me.tabDataDisplay.TabPages("tpgCategories").Controls("dgvCategories")
        dgv.AutoGenerateColumns = False
        dgv.DataSource = ds.Categories
        dgv.Columns.Add("CategoryID", "CategoryID")
        dgv.Columns("CategoryID").DataPropertyName = "CategoryID"
        dgv.Columns.Add("CategoryName", "Category Name")
        dgv.Columns("CategoryName").DataPropertyName = "CategoryName"
        dgv.Columns.Add("Description", "Description")
        dgv.Columns("Description").DataPropertyName = "Description"
        dgv.Columns("Description").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgProducts").Controls("dgvProducts")
        dgv.AutoGenerateColumns = False
        dgv.DataSource = ds.Products
        dgv.Columns.Add("CategoryID", "CategoryID")
        dgv.Columns("CategoryID").DataPropertyName = "CategoryID"
        dgv.Columns.Add("ProductID", "ProductID")
        dgv.Columns("ProductID").DataPropertyName = "ProductID"
        dgv.Columns.Add("ProductName", "Product Name")
        dgv.Columns("ProductName").DataPropertyName = "ProductName"
        dgv.Columns("ProductName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgSuppliers").Controls("dgvSuppliers")
        dgv.AutoGenerateColumns = False
        dgv.DataSource = ds.Suppliers
        dgv.Columns.Add("SupplierID", "SupplierID")
        dgv.Columns("SupplierID").DataPropertyName = "SupplierID"
        dgv.Columns.Add("CompanyName", "Company Name")
        dgv.Columns("CompanyName").DataPropertyName = "CompanyName"
        dgv.Columns("CompanyName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    End Sub

Private Sub CreateScaffolding()
'This code binds the three DataGridView controls

'and establishes their display characteristics

Dim dgv As DataGridView

ds = New DataSet()

dgv = Me.tabDataDisplay.TabPages("tpgCategories").Controls("dgvCategories")
dgv.AutoGenerateColumns = False
dgv.DataSource = ds.Categories
dgv.Columns.Add("CategoryID", "CategoryID")
dgv.Columns("CategoryID").DataPropertyName = "CategoryID"
dgv.Columns.Add("CategoryName", "Category Name")
dgv.Columns("CategoryName").DataPropertyName = "CategoryName"
dgv.Columns.Add("Description", "Description")
dgv.Columns("Description").DataPropertyName = "Description"
dgv.Columns("Description").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgProducts").Controls("dgvProducts")
dgv.AutoGenerateColumns = False
dgv.DataSource = ds.Products
dgv.Columns.Add("CategoryID", "CategoryID")
dgv.Columns("CategoryID").DataPropertyName = "CategoryID"
dgv.Columns.Add("ProductID", "ProductID")
dgv.Columns("ProductID").DataPropertyName = "ProductID"
dgv.Columns.Add("ProductName", "Product Name")
dgv.Columns("ProductName").DataPropertyName = "ProductName"
dgv.Columns("ProductName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgSuppliers").Controls("dgvSuppliers")
dgv.AutoGenerateColumns = False
dgv.DataSource = ds.Suppliers
dgv.Columns.Add("SupplierID", "SupplierID")
dgv.Columns("SupplierID").DataPropertyName = "SupplierID"
dgv.Columns.Add("CompanyName", "Company Name")
dgv.Columns("CompanyName").DataPropertyName = "CompanyName"
dgv.Columns("CompanyName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End Sub