Visual Basic - urgente ! necesito terminar el programa

Life is soft - evento anual de software empresarial
 
Vista:

urgente ! necesito terminar el programa

Publicado por CHAVA (11 intervenciones) el 26/10/2005 16:47:39
necesito ayuda para realizar que en un listview me sume los precios de la ultima columna.

o tienen alguna otra opcion en la cual pueda agregar una lista donde se especifique el nombre del productoo y se vayan sumando los precios y mee los valla insertando en un label.

espero me puedan ayudar ya que es de suma mportancia para mi proyecto final.. gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Dos formas

Publicado por Ramon (90 intervenciones) el 26/10/2005 18:52:34
La primera, al cargar el ListView desde un Recordset:
Dim SumaTotal As Double
SumaTotal = 0
ListView1.ListItems.Clear
rs.MoveFirst
Do While Not rs.EOF
With ListView1.ListItems.Add(, , rs.Fields("0))
.SubItems(1) = rs.Fields(1)
.SubItems(2) = rs.Fields(2)
.SubItems(3) = rs.Fields(3)
.SubItems(4) = rs.Fields(4)
.SubItems(5) = rs.Fields(5)
.SubItems(6) = Format$(rs.Fields(6), "#,##0")
.SubItems(7) = Format$(rs.Fields(7), "#,##0.00")
End With
SumaTotal = SumaTotal + rs.Fields(7)
rs.MoveNext
Loop
Label1.Caption = Format(SumaTotal, "#,##0.00")
---
La segunda, si ya está cargado el ListView
Dim SumaTotal As Double
SumaTotal = 0
For i = 1 To ListView1.ListItems.Count
SumaTotal = SumaTotal + ListView1.ListItems(i).SubItems(7)
Next i
Label1.Caption = Format(SumaTotal, "#,##0.00")
---
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dos formas

Publicado por Chava (11 intervenciones) el 26/10/2005 19:22:09
muchisimas gracias hee.!!!


me sirvio de mucho. solamente era cuestion de cambiar los nombres. muchas gracias por tu ayuda...!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar