Rubens Rosa

Esqueci de mencionar que queria que isso acontecesse no tempo de execução do Form que está o datagridview adicionado 51 minutos depois Consegui algo que me atende aqui.... Private Sub Frm_Consultar_ContasPagar_Activated(sender As Object, e As EventArgs) Handles Me.Activated '-------------- verifica se o Grid está vazio If Dgv_Consulta_ContasPagar.Rows.Count = 0 Then Exit Sub Else Dim Vencimento As Decimal For i = 0 To Dgv_Consulta_ContasPagar.RowCount - 1 '------------ data de vencimento subrtraida pela data de hoje() Vencimento = DateDiff(DateInterval.Day, Date.Today, Dgv_Consulta_ContasPagar.Rows(i).Cells(5).Value).ToString '------------ verifica se a coluna 5 (Data de vencimento) possui dados If Dgv_Consulta_ContasPagar.Rows(i).Cells(5).Value > "01/01/1900" Then '------------- se a condição for verdadeira lança na coluna 7 o resultado Dgv_Consulta_ContasPagar.Rows(i).Cells(7).Value = Vencimento & " dia(s)" End If Next End If End Sub coloquei esse codigo no Activated do formulário e nas rotinas toda vez que quero atualizar o datagridview Espero ajudar alguem

Olá pessoas. Sou novo aqui. Já procurei em vários fóruns mas não obtive sucesso Estou tendo dificuldades em gerar uma rotina que subtraia datas em um datagridview e a partir dai colocar condições em outra colunas: como "dias para vencer" e "status" Seria uma tela de consulta, onde a datagridview é alimentada por um bd. As informações estão carregando corretamente, mas não sei a melhor forma para fazer essa subtração e condições nas outras colunas: "SELECT CASE", "IFs" ou "FOR NEXT" Consegui fazer em apenas uma linha com o CURRENTROW, mas queria que atualiza-se todas as linhas no meu GridView modelo exemplo No caso da Data Lançamento será ignorada e utilizada a DATE.TODAY para que seja sempre a data de hoje para que as condições funcionem diariamente. Não sei se fui muito claro...poderiam me ajudar? Desde já agradeço.