VENCIMENTO DE CONTA DATAGRIDVIEW

WAGNERMOREIRA05 25/01/2013 12:43:49
#418106
Boa noite galerinha, Estou com um pequeno problema, eu tenho uma datagrid com as colunas Conta, Valor, Vencimento e Status
O problema está na Situação, Quero que a coluna Situação mostre quantos dias falta para vencer ou se já venceu.
Estou usando o Visual Basic 2010 Banco de dados Access...


EX:
Calculo Referente ao dia 24/01/2013
Verde: Dentro da data de Vencimento
Amarelo: Último dia para pagto.
Vermelho: Vencido


Conta | Valor | Vencimento | Status
Água | 40,00 | 26/01/2013 | Verde
Luz | 65,00 | 22/01/2013 | Vermelho
Telefone | 150,00 | 24/01/2013 | Amarelo


Grato
Wagner[txt-color=#e80000] [/txt-color]
ALTAIR148 25/01/2013 14:01:28
#418110
Resposta escolhida
Boa tarde,

Amigo, abaixo um exemplo, basta adaptar.

  Dim DataVencimento As Date
Dim ContaDias As Integer = 0
With DataGridView1
For x = 0 To DataGridView1.RowCount - 1
DataVencimento = .Rows(x).Cells([Ô]Vencimento[Ô]).Value.ToString
ContaDias = DateDiff(DateInterval.Day, DataVencimento, Date.Now.Date)
.Rows(x).Cells([Ô]Status[Ô]).Value = ContaDias
If ContaDias = 0 Then
.Rows(x).Cells([Ô]Situacao[Ô]).Value = [Ô]Vence Hoje[Ô]
.Rows(x).DefaultCellStyle.BackColor = Color.Yellow
Else
If ContaDias < 0 Then
.Rows(x).Cells([Ô]Situacao[Ô]).Value = [Ô]Vencida[Ô]
.Rows(x).DefaultCellStyle.BackColor = Color.Red
Else
If ContaDias > 0 Then
.Rows(x).Cells([Ô]Situacao[Ô]).Value = [Ô]A vencer[Ô]
.Rows(x).DefaultCellStyle.BackColor = Color.Green
End If
End If
End If
Next
End With
FELLIPEASSIS 26/01/2013 01:32:02
#418148
coloca no evento DataGridView1_CellFormatting o exemplo q nosso amigo postou ou crie um metodo e chama ele quando vc quiser, pq se colocar no evento load do formulario depois ñ ira atualizar se vc modificar
WAGNERMOREIRA05 26/01/2013 19:14:18
#418159
Muito obrigado pela ajuda, Altair e Fellipe, Ajudou de mais...
Tópico encerrado , respostas não são mais permitidas