VB.NET Datagridview基于单元格值的行颜色

Question

我有以下代码根据单元格值更改行颜色。但是，调用public sub对datagridview没有影响。

   Private Sub CmbAliasnaam_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbAliasnaam.SelectedIndexChanged

    Me.Skedulering2DataGridView.Show()
    RowsCol()


    Me.Skedulering2BindingSource.Sort = "kultivar ASC"
    Me.Skedulering2BindingSource.Filter = "aliasnaam = '" & CmbAliasnaam.Text & "'"
End Sub


Public Sub RowsCol()
    For i As Integer = 0 To Skedulering2DataGridView.Rows.Count() - 1 Step +1
        Dim val As String
        val = Skedulering2DataGridView.Rows(i).Cells(4).Value.ToString
        If val = "NEE" Then
            Skedulering2DataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Red
        ElseIf val = "JA" Then
            Skedulering2DataGridView.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
        Else
            Skedulering2DataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
        End If
    Next

End Sub

任何想法，我将不胜感激。