Private Sub Icono_Datalistado()
'1. añadir una columna de imagenes
If Datalistado.Columns.Contains("ALERTA") = False Then
Dim col As New DataGridViewImageColumn
col.Name = "ALERTA"
Datalistado.Columns.Add(col)
End If
'2. Recorrer filas de la grilla y juzgar el plazo de entrega
Dim Fecha_Limite As Date
For L As Integer = 0 To Datalistado.Rows.Count - 1
If Datalistado.Item(13, L).Value = "REQUERIDO" Then
Fecha_Limite = Convert.ToDateTime(Datalistado.Item(9, L).Value)
'IDEA: AQUI SE PUEDEN MODIFICAR LOS TIEMPOS DE LAS ALERTAS
If Fecha_Limite <= Now Or Fecha_Limite.AddDays(-5) <= Now Then
'comprobar si columna es la de imagen, amarillo
Datalistado.Item(16, L).Value = Image.FromFile(Application.StartupPath & "\" & "ICONOS\ICON advertencia.jpg")
MsgBox("icono amarillo")
If Fecha_Limite <= Now Or Fecha_Limite.AddDays(-5) <= Now Then
Datalistado.Item(16, L).Value = Image.FromFile(Application.StartupPath & "\" & "ICONOS\ICON caducado.jpg")
MsgBox("icono rojo")
End If
End If
Else
Datalistado.Item(16, L).Value = Image.FromFile(Application.StartupPath & "\" & "ICONOS\ICON ok.jpg")
MsgBox("icono verde")
'IDEA: Tambien se puede juzgar los entregados y no aceptados desde hace 3 meses por ejemplo
End If
Next
End Sub