Set the text color of Combobox embedded in datagridview cell

See more:

VB

combobox

DataGridView

Hello,

I have a grid with few columns to it. I have mentioned a condition as if Cell value of column Amount < 0 then change the text colour of a that row to Gray. Noe one of my column has "DataGridViewComboBox" embedded to it. Now when the <0 condition met, text of all other columns from that row turns gray except this "DataGridViewComboBox" Column.

I would like to know how can I set the Combobox's selected text's colour to Gray?

Private Function GetComboBoxColumn_Category() As DataGridViewComboBoxColumn
        Dim ColCombo As New DataGridViewComboBoxColumn
        Try
            Using Connection = GetConnection()
                da = New SqlDataAdapter("SELECT hKey 'iCategory', sCategory FROM tbl_CategoryList WHERE IsObsolete = 0", Connection)
                dt = New DataTable
                da.Fill(dt)
            End Using
            ColCombo.DataPropertyName = "iCategory"
            ColCombo.HeaderText = "Category"
            ColCombo.Name = "iCategory"
            ColCombo.DataSource = dt
            ColCombo.ValueMember = "iCategory"
            ColCombo.DisplayMember = "sCategory"
            ColCombo.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
        Catch ex As Exception
            ImpensaAlert(ex.Message, MsgBoxStyle.Critical)
        End Try

        Return ColCombo
    End Function

Private Sub PopulateExpenditureDetailGrid()
        Dim TextBoxCell As DataGridViewTextBoxCell
        Dim strSQL As String = ""
        Dim dc_Category As DataGridViewComboBoxColumn
        Dim dc_DelChk As New DataGridViewCheckBoxColumn

        Try
            DataGridExpDet.DataSource = Nothing
            'DataGridExpDet.Columns.Clear()

            Label15.Text = "Getting Detail Records..."
            Application.DoEvents()

            StrClosedYrs = BuildOpenOrClosedYrsStr(1) 'List Of Closed Years
            dc_Category = GetComboBoxColumn_Category()
            DataGridExpDet.Columns.Add(dc_Category)
            .
            .
            .
            .
            .
            .
            .
            .
            .
        Catch ex As Exception
            ImpensaAlert(ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

Private Sub DataGridExpDet_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridExpDet.CellLeave
        

        If DataGridExpDet.CurrentCell.ColumnIndex = DataGridExpDet.Columns("Amount").Index And Not String.IsNullOrEmpty(DataGridExpDet(DataGridExpDet.CurrentCell.ColumnIndex, DataGridExpDet.CurrentCell.RowIndex).EditedFormattedValue) Then
            If DataGridExpDet(DataGridExpDet.CurrentCell.ColumnIndex, DataGridExpDet.CurrentCell.RowIndex).EditedFormattedValue < 0 Then
                DataGridExpDet.Rows(DataGridExpDet.CurrentCell.RowIndex).DefaultCellStyle.ForeColor = Color.Gray
            End If
        End If
    End Sub

Any help would be greatly appreciated.

Thanks!
Sachin