Datagrid e BindingSource

Imports System.Data
Imports System.Data.SqlClient

Public Class Transactions
Dim dsAdoSbs As New AdoSbsDataSet()
Dim bsMaster As New BindingSource()
Dim bsDetail As New BindingSource()


Public Sub New()

' This call is required by the Windows Form Designer.

InitializeComponent()

' This call supports the exercise

CreateScaffolding()
End Sub

Private Sub CreateScaffolding()
'This code configures the two BindingSource controls

bsMaster.DataSource = dsAdoSbs
bsMaster.DataMember = "Customers"
bsDetail.DataSource = bsMaster
bsDetail.DataMember = "FK_Orders_Customers"

'This code binds the two DataGridView controls

'and establishes their display characteristics

Dim dgv As DataGridView

dgv = Me.dgvCustomers
dgv.AutoGenerateColumns = False
dgv.DataSource = bsMaster
dgv.Columns.Add("CustomerID", "CustomerID")
dgv.Columns("CustomerID").DataPropertyName = "CustomerID"
dgv.Columns.Add("CompanyName", "Company Name")
dgv.Columns("CompanyName").DataPropertyName = "CompanyName"
dgv.Columns("CompanyName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.dgvOrders
dgv.AutoGenerateColumns = False
dgv.DataSource = bsDetail
dgv.Columns.Add("OrderID", "OrderID")
dgv.Columns("OrderID").DataPropertyName = "OrderID"
dgv.Columns.Add("EmployeeID", "EmployeeID")
dgv.Columns("EmployeeID").DataPropertyName = "EmployeeID"
dgv.Columns.Add("OrderDate", "Order Date")
dgv.Columns("OrderDate").DataPropertyName = "OrderDate"
dgv.Columns.Add("ShippedDate", "Shipped")
dgv.Columns("ShippedDate").DataPropertyName = "ShippedDate"
dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

Dim daCustomers As System.Data.SqlClient.SqlDataAdapter
Dim daOrdersAs System.Data.SqlClient.SqlDataAdapter

daCustomers.Fill(dsAdoSbs.Customers)
daOrders.Fill(dsAdoSbs.Orders)



End Sub