document.write('
');
document.write('
');
document.write(' Private Sub Foo()
');
document.write(' \'THE PURPOSE OF THIS SUB IS BIND ONE DATASOURCE TO TWO DIFFERENT WINDOWS COMPONENTS
');
document.write(' \'THE SECRET IS TO USE THE New Windows.Forms.BindingContext COMMAND
');
document.write('
');
document.write(' \'CREATE A DATATABLE THAT WILL HOLD THE NAMES OF ALL 50 US STATES
');
document.write(' Dim objDT As New Data.DataTable
');
document.write(' objDT = GetAll50States() \'THE QUERY THAT TAKES A LONG TIME TO EXECUTE
');
document.write('
');
document.write(' \'Fill ShipFrom Combo
');
document.write(' cmbShipFrom.BindingContext = New Windows.Forms.BindingContext
');
document.write(' cmbShipFrom.DataSource = objDT
');
document.write(' cmbShipFrom.DisplayMember = "FullName"
');
document.write(' cmbShipFrom.ValueMember = "PostalAbbreviation"
');
document.write('
');
document.write(' \'Fill ShipTo Combo
');
document.write(' cmbShipTo.BindingContext = New Windows.Forms.BindingContext
');
document.write(' cmbShipTo.DataSource = objDT
');
document.write(' cmbShipTo.DisplayMember = "FullName"
');
document.write(' cmbShipTo.ValueMember = "PostalAbbreviation"
');
document.write(' End Sub
');
document.write('
');
document.write('
');
document.write('
');