SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: spiderman1602 en Lunes 4 de Septiembre de 2006, 20:19

Título: Listview
Publicado por: 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!!! :-)

Título: Re: Listview
Publicado por: RadicalEd en Lunes 4 de Septiembre de 2006, 20:37

Favor no
(http://home.cc.umanitoba.ca/~fernand4/venganza/gritar.jpg)
Gracias

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

Título: Re: Listview
Publicado por: spiderman1602 en Lunes 4 de Septiembre de 2006, 20:48

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  :)

Título: Re: Listview
Publicado por: spiderman1602 en Lunes 4 de Septiembre de 2006, 21:03

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  :)

Título: Re: Listview
Publicado por: F_Tanori en Lunes 9 de Octubre de 2006, 10:28

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

Código: Text

1.  
2.  
3. Private Sub cmdSumar_Click()
4.   Dim lv_element As ListSubItems
5.   Dim ld_suma As Double
6.   Dim li_Ultima
7.  
8.   li_Ultima = 3 'Columna del importe
9.   For Each lv_element In Me.ListView1.ListItems
10.         ld_suma = CDbl(ld_suma + lv_element(li_Ultima).Text)
11.   Next
12.      
13.   Me.TxtSuma = Format(ld_suma, &#34;Currency&#34;)
14. End Sub
15.  
16.  
17.  

Saludos

Título: Re: Listview
Publicado por: astrin en Miércoles 11 de Octubre de 2006, 18:35

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...!!!

Título: Re: Listview
Publicado por: lencho en Sábado 14 de Octubre de 2006, 04:06

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.