Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
DataGridView1.CurrentRow.Cells("Image").Value = Image.FromFile("C:\ ... ... ... ... A completar segun tu sistema ... ... ... \ImagenPalomita.png") ' "Image" es el nombre de la columna que debe tener imagen.
For L As Integer = 0 To DataGridView1.Rows.Count - 1 ' o - 2 si la ultima línea es vacia
DataGridView1.Item("Image",L).Value = Image.FromFile("C:\ ... ... ... ... A completar segun tu sistema ... ... ... \ImagenPalomita.png") ' "Image" es el nombre de la columna que debe tener imagen.
Next
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
