USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  CheckBox datagriview
Guilherme
não registrado
Postada em 08/08/2018 14:41 hs   
Boa tarde pessoal, estou com uma dificuldade da seguinte forma.
Tenho um datagriview e a primeira coluna tem um checkbox.

Gostaria que assim que eu clicar no checkbox para deixar ele true ja somar o valor de uma coluna x em um TextBox. qual evento melhor a usar para chamar esta função?

tenho essa sub aqui:

Sub calcula()
        Dim total, pedidos, frete As Decimal
        total = 0
        pedidos = 0
        frete = 0
        TextBox1.Text = total
        TextBoxXP8.Text = pedidos
        TextBoxXP7.Text = frete

        For i = 0 To dg_pedidos_liberar.Rows.Count - 1
            If dg_pedidos_liberar.Rows(i).Cells(0).Value IsNot DBNull.Value Then
                If CType(dg_pedidos_liberar.Item(0, i).Value, Boolean) = True Then
                    pedidos += 1
                    total += dg_pedidos_liberar.Item(8, i).Value
                    TextBox1.Text = total.ToString("N")
                    TextBox1.Refresh()
                    TextBoxXP8.Text = pedidos
                    TextBoxXP8.Refresh()
                    frete += CDec(dg_pedidos_liberar.Rows(i).Cells("VLfrete").Value.ToString) * 100
                    TextBoxXP7.Text += frete
                    TextBoxXP7.Refresh()
                End If
            End If

        Next
        TextBox1.Refresh()

        TextBoxXP8.Refresh()
    End Sub


ja tentei colocar isso no evento do datagrid CellContentClick.


desde ja agradeço a atenção.
     
Guilherme
não registrado
Postada em 10/08/2018 11:27 hs   
Bom dia Pessoal. Consegui resolver da seguinte forma.

Private Sub dg_pedidos_liberar_CellClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dg_pedidos_liberar.CellClick

        If dg_pedidos_liberar.Rows.Count = 0 Then
            Return
        End If

        'se clicar na coluna check (que é a coluna 0 (zero))
        If dg_pedidos_liberar.CurrentCell.ColumnIndex.Equals(0) Then

            'se a coluna estiver checada (true), torna-a não checada (false)
            If dg_pedidos_liberar.CurrentRow.Cells(0).Value.Equals("True") Then
                dg_pedidos_liberar.CurrentRow.Cells(0).Value = False
            Else
                dg_pedidos_liberar.CurrentRow.Cells(0).Value = True
            End If
        End If
        calcula()
    End Sub
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página