Wie ignoriere ich, wenn eine Zelle leer ist?

Question

Wie benutzt man roscolor() aber um den Wert zu ignorieren (wie leere Zelle)? Ich Farbe Zeile, wenn der Wert höher als 5 ist, aber wenn es nichts in der Zelle ist, möchte ich die Roscolor() zu ignorieren gelten, wie?

Public Sub RosColor() 
    For i As Integer = 0 To QuoteDataGridView1.Rows.Count() - 1 Step +1 
     Dim val As Integer 
     val = QuoteDataGridView1.Rows(i).Cells(3).Value 
     If val = vbEmpty Then 

      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White 

     ElseIf val < 5 Then 
      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red 
     ElseIf val > 5 And val < 10 Then 
      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow 


     End If 

    Next 

End Sub 

Answer 1

Sie für den leeren Wert wie folgt

Public Sub RosColor() 
    For i As Integer = 0 To QuoteDataGridView1.Rows.Count() - 1 Step +1 
     Dim val = QuoteDataGridView1.Rows(i).Cells(3).Value 
     If IsDBNull(val) or val Is Nothing Then 
      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White 
     ElseIf CInt(val) < 5 Then 
      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red 
     ElseIf CInt(val) > 5 And CInt(val) < 10 Then 
      QuoteDataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow 
     End If