vb.net datatable pour exceller avec la couleur

Question

dans vb.net j'ai datatable dont la valeur de la base de données ici le format.

Est-ce possible quand je veux faire le style et la couleur avec les règles:

if nilai2 >= nilai1 then 
      hasil.backcolor = color.red 
else if nilai2 < nilai1 then 
      hasil.backcolor = color.white 
end if 

Sortie:

Merci avant

Answer 1

j'obtenir la réponse. Voici mon code:

xlrange = sobjSheet.Range(columnName & "2:" & columnName & "" & dgvhasil.RowCount + 1) 
With xlrange 
      .FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, Excel.XlFormatConditionOperator.xlLess, "0") 
      .FormatConditions(1).font.ColorIndex = 3 
     End With 

Merci pour votre attention

Answer 2

Si vous utilisez DataGridView, vous pouvez probablement le faire avec l'événement RowPostPaint.

Dans l'exemple ci-dessous, dès que chaque ligne est peinte dans DataGridView DataGridViewMaterial, la ligne entière est peinte sur une couleur qui dépend de la valeur de la colonne "MaterialState".

Private Sub DataGridViewMaterial_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridViewMaterial.RowPostPaint 

    Dim dgvRow As DataGridViewRow = Me.DataGridViewMaterial.Rows(e.RowIndex) 

    If dgvRow.Cells("MaterialState").Value <> "" Then 
     With dgvRow.DefaultCellStyle 
      Select Case dgvRow.Cells("MaterialState").Value 
       Case 1 
        .BackColor = Color.White 
       Case 2 
        .BackColor = Color.Orange 
       Case 3 
        .BackColor = Color.Aquamarine 
       Case 31 
        .BackColor = Color.Crimson 
       Case 4, 41, 42 
        .BackColor = Color.BlueViolet 
       Case 5 
        .BackColor = Color.LightPink 
       Case 6 
        .BackColor = Color.YellowGreen 
       Case 7 
        .BackColor = Color.Gray 
       Case Else 
        .BackColor = Color.Red 
      End Select 
     End With 
    End If 

Vous pouvez probablement peindre une cellule individuelle avec quelque chose comme:

dgvRow.Cells("YourColumnName").Style.BackColor = Color.Red