andru1x
17 de Enero del 2004

HOLA TENGO ESTE CODIGO PARA MOSTRAR LOS REGISTROS DE UNA BASE DE DATOS ACCESS EN UN LISTVIEW PERO COMO HAGO PARA SUMAR EL TOTAL DEL tli.SubItems(2) Y QUE ME MUESTRE EL RESULTADO EN UN LABEL


Set tli = Form2.lista.ListItems.Add(, , Rs.Fields("Nº") & "")
tli.SubItems(1) = Rs.Fields("descripcion") & ""
tli.SubItems(2) = Rs.Fields("total") & ""

Rs.MoveNext
Loop

andru1x
17 de Enero del 2004

EL CODIGO ES ASI

Do While Not Rs.EOF

Set tli = Form2.lista.ListItems.Add(, , Rs.Fields("Nº") & "")
tli.SubItems(1) = Rs.Fields("descripcion") & ""
tli.SubItems(2) = Rs.Fields("total") & ""

Rs.MoveNext
Loop

andru1x
17 de Enero del 2004

hola

jak.ing
17 de Enero del 2004

ESO ES MUY FACIL COMO TE E VISTO COLABORAR TE VOY A RESPONDER, SOLO TIENES QUE DECLARAR UNA VARIABLE :


Dim MI_VARIABLE As Currency

Y LUEGO HACES ESTO...

Do While Not Rs.EOF

MI_VARIALE = MI_VARIABLE + Rs.Fields("total")

Set tli = Form2.lista.ListItems.Add(, , Rs.Fields("Nº") & "")
tli.SubItems(1) = Rs.Fields("descripción") & ""
tli.SubItems(2) = Rs.Fields("total") & ""

Rs.MoveNext

Loop

LUEGO ASIGNAS A UN LABEL EL CONTENIDO DE LA VARIABLE

LABEL1.CAPTION = "TOTAL: " & MI_VARIABLE


ESO ES TODO, HAY OTRAS FORMAS DE ACERLO. SI TIENES ALGUNA DUDA , NO “DUDES “EN PREGUNTARME


BYE