ALTERAR COR DO TEXTO DO DATAGRIDVIEW
Olá Pessoal,
Estou criando um form para contas a receber/pagar e no datagridview e estou trabalhando com DataSet e preciso da seguinte condição...
Se Data do pagamento for > que data atual
Vermelho
Se Data do pagamento for = que data atual
Amarelo
Se Data do pagamento for < que data atual
Verde
Segue o codigo:
Private Sub frmcontasapagar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]DataSet1.Contaspagar[ô] table. You can move, or remove it, as needed.
Me.ContaspagarTableAdapter.Fill(Me.DataSet1.Contaspagar)
For i As Integer = 0 To ContaspagarDataGridView.Rows.Count - 1
If ContaspagarDataGridView.Rows(i).Cells([Ô]descricao[Ô]).Value.ToString < DateTime.Now Then
ContaspagarDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
End Sub
Esta apresentando erro e estou com dificuldade em solucionar...alguém pode me ajudar??? desde já agradeço pelo ajuda
Estou criando um form para contas a receber/pagar e no datagridview e estou trabalhando com DataSet e preciso da seguinte condição...
Se Data do pagamento for > que data atual
Vermelho
Se Data do pagamento for = que data atual
Amarelo
Se Data do pagamento for < que data atual
Verde
Segue o codigo:
Private Sub frmcontasapagar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]DataSet1.Contaspagar[ô] table. You can move, or remove it, as needed.
Me.ContaspagarTableAdapter.Fill(Me.DataSet1.Contaspagar)
For i As Integer = 0 To ContaspagarDataGridView.Rows.Count - 1
If ContaspagarDataGridView.Rows(i).Cells([Ô]descricao[Ô]).Value.ToString < DateTime.Now Then
ContaspagarDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
End Sub
Esta apresentando erro e estou com dificuldade em solucionar...alguém pode me ajudar??? desde já agradeço pelo ajuda
Faça seu login para responder