Private Sub ActivateCardsBrowseDialog_ComboListPopulating(ByVal FieldName As String, ByVal e As MicroFour.StrataFrame.UI.ListPopulatingEventArgs) Handles MyBase.ComboListPopulating '-- Populate the Printer & Carrier data based on their VendorType Select Case FieldName Case bizTransaction.bizTransactionFieldNames.FK_Vendor_Printer.ToString '-- Pass the PrimaryBO EditingState to filter out Active records if needed. e.Parameters(0).Value = MicroFour.StrataFrame.Business.BusinessEditingState.Idle e.Parameters(1).Value = Business.bizVendor.bizVendorFieldNames.IsInactive.ToString e.Parameters(2).Value = Business.Enumerations.VendorType.Printer Case bizTransaction.bizTransactionFieldNames.FK_Vendor_Carrier.ToString '-- Pass the PrimaryBO EditingState to filter out Active records if needed. e.Parameters(0).Value = MicroFour.StrataFrame.Business.BusinessEditingState.Idle e.Parameters(1).Value = Business.bizVendor.bizVendorFieldNames.IsInactive.ToString e.Parameters(2).Value = Business.Enumerations.VendorType.Carrier End Select End Sub