none
sumar varias cantidades de una lista RRS feed

  • Pregunta

  • Buen dia!

    Tengo una lista de inventario con 3 campos(Producto, Localización y Cantidad) y tengo diferentes productos y cada prodcuto tiene varias localizaciones y en cada localización hay cierta cantidad.

    entonces tengo un textbox donde tengo el producto y un listbox donde me da una lista de las localizacones y cantidades del producto, 

    mi tarea es tomar las cantidades que tengo en las localizaciones y sumarlas para sacar un total.

    espero me puedan ayudar aqui esta el codigo que estoy usando en mi listbox espero me puedan ayudar.

    On Error Resume Next
            tbAux2.Close()
            On Error GoTo 0
            tbAux2.Open("Select InvCantidad, InvLoc from Inventario where InvProducto='" & Trim(txtClave.Text) & "'", CnCP, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
            lstEntrada.Items.Clear()
            If Not tbAux2.EOF Then
                Do
                    lstEntrada.Items.Add(Format(tbAux2("InvLoc").Value, "{0,-10}") & "  " & Format(Format(tbAux2("InvCantidad").Value, "0"), "{0,24}"))
                    tbAux2.MoveNext()
                    If tbAux2.EOF Then
                        Exit Do
                    End If
                Loop
            End If
            tbAux2.Close()

    Saludos

    domingo, 16 de marzo de 2014 0:10