Private Sub VendorsBrowseDialog_RowPopulating(ByVal e As MicroFour.StrataFrame.UI.Windows.Forms.RowPopulatingEventArgs) Handles MyBase.RowPopulating

            '-- Strong type the passed business object

            With CType(e.BusinessObject, CardTrackingSystem.Business.bizVendor)

                e.UseGroup = True

                e.GroupHeaderText = MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(.VendorType)



                '-- Show the Inactive Status with a red color

                If .IsInactive Then

                    e.RowForeColor = Drawing.Color.Red

                    e.Values(4).DisplayValue = "Yes"

                Else

                    e.Values(4).DisplayValue = String.Empty

                End If

            End With

        End Sub

 Private Sub VendorsBrowseDialog_RowPopulating(ByVal e As MicroFour.StrataFrame.UI.Windows.Forms.RowPopulatingEventArgs) Handles MyBase.RowPopulating

            '-- Strong type the passed business object

            With CType(e.BusinessObject, CardTrackingSystem.Business.bizVendor)

                e.UseGroup = True

                e.GroupHeaderText = MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(.VendorType)



                '-- Show the Inactive Status with a red color

                If .IsInactive Then

                    e.RowForeColor = Drawing.Color.Red

                    e.Values("VendorIsInactive").DisplayValue = "Yes"

                Else

                    e.Values("VendorIsInactive").DisplayValue = String.Empty

                End If

            End With

        End Sub