SOMAR DE VALORES NO DATAGRIDVIEW

AMORIM 17/11/2017 01:08:27
#477904
Essa função soma todos os checkboxes marcado. Agora como eu faço para que toda vez que for marcado ou desmarcado o checkboxes soma os valores tem que alternar

Private Sub SomarValor()
Dim TotalVenceHoje As Double
For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
If Not IsDBNull(dgvListaContasApagar.Rows(i).Cells(0).Value) Then
dgvListaContasApagar.CurrentRow.Cells(3).Value.ToString()
[ô]rotina de pagamento
TotalVenceHoje += Convert.ToDouble(dgvListaContasApagar.CurrentRow.Cells(3).Value)
End If
Next
txtContasAvenceHoje.Text = TotalVenceHoje
End Sub
JABA 17/11/2017 03:50:48
#477906 Resposta escolhida
Não consegui compreender o que você quer, mas se for para verificar se uma checkbox está marcada ou não, tente algo assim: 

Private Sub SomarValor()
        Dim TotalVenceHoje As Double
        For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
            [txt-color=#007100][ô]Estou considerando  a primeira célula como seu checkbox[/txt-color]
            If (dgvListaContasApagar.Rows(i).Cells(0).Value = True) Then
                TotalVenceHoje += Convert.ToDouble(dgvListaContasApagar.CurrentRow.Cells(3).Value)
            End If
        Next
        txtContasAvenceHoje.Text = TotalVenceHoje
    End Sub
AMORIM 17/11/2017 09:08:23
#477908
A função tem que somar os valores das linha que o checkbox está marcada

exemplo
linha 1 tem o valor de 45,78 > [txt-color=#e80000]Não marcada[/txt-color]
se a linha 2 tem o valor de 34,78 > [txt-color=#0000f0]Marcada[/txt-color]
se na linha 3 tem o valor de 67,78 > [txt-color=#0000f0]Marcada[/txt-color]
linha 4 tem o valor de 5,67 > [txt-color=#e80000]Não marcada[/txt-color]
Cada vez que o checkbox for marcado ou desmarcado os valores tem que muda de acordo com linha marcadas
JABA 17/11/2017 14:57:09
#477925
O código que eu postei foi para resolver isso mesmo. Faça o teste.
AMORIM 17/11/2017 15:35:16
#477929
Eu já fiz isso e não deu certo.
JABA 17/11/2017 16:06:19
#477931
O erro foi naquela parte em vermelho.

Private Sub SomarValor()
        Dim TotalVenceHoje As Double
        For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
            [ô]Estou considerando  a primeira célula como seu checkbox
            If (dgvListaContasApagar.Rows(i).Cells(0).Value = True) Then
                TotalVenceHoje += Convert.ToDouble(dgvListaContasApagar.[txt-color=#e80000]Rows(i)[/txt-color].Cells(3).Value)
            End If
        Next
        txtContasAvenceHoje.Text = TotalVenceHoje
    End Sub
AMORIM 17/11/2017 17:02:29
#477938
Muitos obrigado. Agora sim deu certo
Tópico encerrado , respostas não são mais permitidas
Voltar