Autor Tema: Listview (Leído 2382 veces)

spiderman1602 · « **en:** Lunes 4 de Septiembre de 2006, 20:19 »

BUENO SOLO PIDO AYUDA PARA SABER COMO PUEDO LEER UNA COLUMNA EN EL LISTVIEW YA QUE LO QUE PRETENDO EN MI SISTEMA ES SUMAR TODO LO CONTENIDO EN ESA COLUMNA, BUENO MI SISTEMA CUENTA CON CUATRO COLUMNAS Y LA ULTIMA ES LA DEL PRECIO, ESA COLUMNA DE PRECIO ES LA QUE QUIERO SACAR PARA LA SUMA TOTAL DE LA VENTA DE ANTEMANO MUCHAS GRACIAS!!! :-)

RadicalEd

Favor no

Gracias

Si estas tomando los datos de una DB, puedes usar la función SUM de SQL así:
</div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>SQL </td></tr><tr><td id='CODE'>[color=blue;font-weight]SELECT[/color] SUM(campo) FROM tabla </td></tr></table><div class='postcolor'>

spiderman1602

BUENO DE ANTEMANO GRACIAS POR TOMARTE LA MOLESTIA DE RESPONDER, PERO BUENO LO QUE PASO ES QUE LOS NUMEROS LOS TENGO QUE AGARRAR DEL LISTVIEW DIRECTO NO DE UNA BASE DE DATOS AL MOMENTO QUE TERMINE DE HACER LA VENTA LO QUE QUIERO ES QUE SE SUMEN TODO LO QUE CONTENGA ESA COLUMANA

spiderman1602

BUENO DE ANTEMANO GRACIAS POR TOMARTE LA MOLESTIA DE RESPONDER, PERO BUENO LO QUE PASO ES QUE LOS NUMEROS LOS TENGO QUE AGARRAR DEL LISTVIEW DIRECTO NO DE UNA BASE DE DATOS AL MOMENTO QUE TERMINE DE HACER LA VENTA LO QUE QUIERO ES QUE SE SUMEN TODO LO QUE CONTENGA ESA COLUMANA

F_Tanori

Hola tal vez un poco tarde pero aun puede ayudar a alguien!

Código: Text

 
Private Sub cmdSumar_Click()
  Dim lv_element As ListSubItems
  Dim ld_suma As Double
  Dim li_Ultima
  
  li_Ultima = 3 'Columna del importe
  For Each lv_element In Me.ListView1.ListItems
        ld_suma = CDbl(ld_suma + lv_element(li_Ultima).Text)
  Next
      
  Me.TxtSuma = Format(ld_suma, &#34;Currency&#34;)
End Sub

Saludos

astrin

Facil...
Public Function HallarTotal() As Double
Dim total1 As Double
Dim a As Short
For a = 0 To Me.LvDetalle.Items.Count - 1
total1 = total1 + Me.LvDetalle.Items(a).SubItems(7).Text
Next
Return total1
End Function

y despues ...de calcular los costos
Me.LblTotalDolares.Text = Format$(HallarTotal(), "#,##0.00")

Astrin...!!!

lencho

HOLAS, Yo estoy haciendo un sistema de ventas, y estoy usando 2 listview ()

PREGUNTA : Como puedo hacer que un ListView pueda ser editable ?, osea quiero digitar la cantidad del producto a vender.

SoloCodigo

Autor Tema: Listview (Leído 2382 veces)

spiderman1602

Listview

RadicalEd

Re: Listview

spiderman1602

Re: Listview

spiderman1602

Re: Listview

F_Tanori

Re: Listview

astrin

Re: Listview

lencho

Re: Listview