Private Sub cboItemType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboItemType.SelectedIndexChanged
     '-- Filter the cboItemName combobox data with the following parameters:
     ' Pass the PrimaryBO EditingState to filter out Active records if needed.
     ' The name of the Inactive Status field
     ' The ItemType value
     ' And the Appliance used.
     Me.BizItems_Lookup.Clear()
     Me.BizItems_Lookup.FillByActiveRecords(Me.bizSC_AppliancesItems1.EditingState, "ItemIsInactive", Me.bizSC_AppliancesItems1.ItemType, Me.BizSC_Appliances1.FK_Appliances)
     Me.cboItemName.Requery()
End Sub
 
Private Sub cboItemName_ListPopulating(ByVal e As MicroFour.StrataFrame.UI.ListPopulatingEventArgs) Handles cboItemName.ListPopulating
     e.Parameters(0).Value = Me.BizItems_Lookup
     e.Parameters(1).Value = MicroFour.StrataFrame.Business.BusinessCloneDataType.ClearAndFillFromDefaultView
End Sub
 
Private Sub cboItemName_DropDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboItemName.DropDown
     If bizSC_AppliancesItems1.Count > 0 Then
          Me.cboItemName.Requery()
     Else
          Me.cboItemName.Items.Clear()
     End If
End Sub
 
Private Sub cboItemName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboItemName.SelectedIndexChanged
     If Me.BizItems_Lookup.Count > 0 Then
          If Me.BizItems_Lookup.SeekToPrimaryKey(Me.bizSC_AppliancesItems1.FK_Items) Then
               Me.bizSC_AppliancesItems1.ItemPrice = Me.BizItems_Lookup.ItemPrice
          End If
     End If
End Sub