Visual Basic.NET - Calculo en columna de un DataGridView

Val: 5

Calculo en columna de un DataGridView

Publicado por David (2 intervenciones) el 12/04/2021 01:08:10

Hola a todos.

Les comento que tengo un DataGridView el cual cuando agrego una fila me realiza una peracion de multipliacion.
por ejemplo. multiplica la columna cantidad por la columna precio para obtener el total en la columna Total.
Hasta hay todo bien, el problema es cuando voy a modificar un registro cargando varias filas desde la base de datos al DataGridView , solo calcula dos primeras filas del DataGridView pero apartir de esos dos deja los demas valores de la columna total vacios.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 322

Val: 5

Calculo en columna de un DataGridView

Publicado por David (2 intervenciones) el 12/04/2021 01:12:59

Este es el codigo y uso el evento RowsAdded ando lo consulto desde la base de datos.

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded

    Dim row As DataGridViewRow = CType(DataGridView1.Rows(e.RowIndex), DataGridViewRow)

    Dim cantidad As String

    Dim precio As Double

    Dim totalart As Double

    cantidad = row.Cells("Cantidadart").Value

    precio = row.Cells("Precioart").Value

    totalart = cantidad * precio

    row.Cells("Totalart").Value = Format(totalart, "##,###.00")

    Dim suma1 As Double

    For i As Integer = 0 To DataGridView1.RowCount - 1

        suma1 += DataGridViewFact.Rows(i).Cells(4).Value

    Next

    ' Me.TextBoxSubtotal.Text = Format(suma1, "##,###.00")

    Dim suma As Double

    For i As Integer = 0 To DataGridView1.RowCount - 1

        suma += DataGridView1Rows(i).Cells(4).Value

    Next

    ''valida que no tenga descuento

    'If TextBoxDesc.Text <> "0.00" Then

    '    MsgBox("Ingrese descuanto nuevamente", MsgBoxStyle.Information, "AVISO")

    'End If

    'TextBoxDesc.Text = "0.00"

    Me.TextBoxSubtotal.Text = Format(suma, "##,###.00")

    Dim itbis As Double

    itbis = suma * 0.18

    TextBoxItbis.Text = Format(itbis, "##,###.00")

    Dim totalfac As Double

    totalfac = suma + itbis

    TextBoxTotalfa.Text = Format(totalfac, "##,###.00")

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar