none
DATOS REPETIDOS EN DATAGRID RRS feed

  • Pregunta

  • Hola estimados tengo la siguiente duda:

    Tengo una consulta mediante un textbox que si ingreso el codigo 1021 me trae los siguientes datos en un datagridview

    Si ingreso el codigo 1022 

    Si vuelvo a ingresar el mismo codigo la cantidad aumenta a 2, ya que los datos estan repetidos y asi evito tener muchos datos hacia abajo.

    Mi problema viene si ingreso primero un codigo ejemplo 1021 y luego 1022, ya que efectivamente aumenta las cantidades de los codigos repetidos, pero me esta omitiendo agregar el codigo 1074 que trae devuelta al ingresar el codigo 1022 (como se ve en la segunda imagen que dice 1074 TARTALETA, porque podria estar ocurriendo eso ?, adjunto mas abajo el codigo que estoy utilizando.

      Private Sub Datosrepetidos(ByVal cod As String)
            Dim func As New L_Ventas
            Dim dt As New DataTable
            Dim Existe As Boolean
            dt = func.obtenener_producto(cod)
            If dt.Rows.Count > 0 Then
                For Each row As DataRow In dt.Rows
                    For Each fila As DataGridViewRow In Listado_Ventas.Rows
                        If fila.Cells("COD_BARRAS").Value = row("COD BARRAS").ToString Then
                            fila.Cells("CANTIDAD").Value = FormatNumber(CDec(fila.Cells("CANTIDAD").Value) + row("CANTIDAD").ToString, 2)
                            fila.Cells("TOT_BRUTO").Value = FormatNumber(((fila.Cells("PRECIO").Value) * (fila.Cells("CANTIDAD").Value)) / 1.19, 0)
                            fila.Cells("IVA").Value = FormatNumber((((fila.Cells("PRECIO").Value) * (fila.Cells("CANTIDAD").Value)) / 1.19) * 0.19, 0)
                            fila.Cells("TOT_NETO").Value = (fila.Cells("PRECIO").Value) * (fila.Cells("CANTIDAD").Value)
                            Existe = True
                        End If
                    Next
                    If Not Existe Then
                        Listado_Ventas.Rows.Add(row("COD BARRAS").ToString, row("DESCRIPCION").ToString, row("COD PROVEEDOR").ToString, row("PROVEEDOR").ToString, row("CANTIDAD").ToString, row("PRECIO").ToString, FormatNumber((row("PRECIO").ToString / 1.19), 0), FormatNumber(((row("PRECIO").ToString / 1.19) * 0.19), 0), row("PRECIO").ToString, row("TIPO PRODUCTO").ToString)
                    End If
                Next
                codigo_barras.Text = ""
                codigo_barras.Select()
            End If
        End Sub

    Espero ser claro en lo que trato de lograr, en simples palabras es si el codigo se repite aumente la cantidad y si no que agregue la nueva fila, toda ayuda es bienvenida y estoy atento a sus respuestas, muchas gracias.

    sábado, 25 de mayo de 2019 15:38

Respuestas

  • Hola

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://ayudaexcel.com/foro/topic/33513-insertar-filas-despues-de-datos-repetidos/

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. 
    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    miércoles, 29 de mayo de 2019 14:16