26/05/2009, 19:57
|
| | | Fecha de Ingreso: julio-2008
Mensajes: 205
Antigüedad: 15 años, 10 meses Puntos: 1 | |
| Respuesta: Sumar columnas de un listview
listo... gracias por la acotacion. para los que estan interesados es asi..
Private Sub SumaSeleccionados_Click()
Dim Total As Double, i As Integer
For i = 1 To ListView1.ListItems.Count - 3
If ListView1.ListItems(i).Checked = True Then
Total = Total + CDbl(ListView1.ListItems(i).SubItems(1))
End If
Next
ListView1.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)
End Sub |