> Private Sub ProcessingBatchesForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load > ' Set the data source of the selection combo box to the business objects selection listing method results > ' This dataset is NOT automatically synchronized with the Form's data source (the business object) > Me.cboProcessingBatchSelection.DataSource = Me.oProcessingBatch.GetProcessingBatchSelectionListing() > Me.cboProcessingBatchSelection.Value = Me.oProcessingBatch.GetProcessingBatchMostRecentBatchId() > > ' Configure the combo box display and values memeber to match that of the business object > Me.cboProcessingBatchSelection.DisplayMember = Me.oProcessingBatch.DescriptionField() > Me.cboProcessingBatchSelection.ValueMember = Me.oProcessingBatch.PrimaryKey() > > ' Fill the data source of the form with the data for the record selected in the combo box > Me.oProcessingBatch.GetProcessingBatchByBatchId(CInt(Me.cboProcessingBatchSelection.Value)) > Me.dsProcessingBatch = Me.oProcessingBatch.GetProcessingBatchByBatchId(CInt(Me.cboProcessingBatchSelection.Value)) > End Sub > > Private Sub cboProcessingBatchSelection_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProcessingBatchSelection.ValueChanged > ' Fill the data source of the form with the data for the record selected in the combo box > Me.dsProcessingBatch = Me.oProcessingBatch.GetProcessingBatchByBatchId(CInt(Me.cboProcessingBatchSelection.Value)) > End Sub >>