Suma de registros en listview

[carlosanpy]

hola a todos
estoy trabajando en visual basic 2008
en un listview estoy cargando datos, la idea es cargar datos y sumarlos a medida que voy insertando datos en una columna "Total"
Fecha Concepto Monto Total
12/05 Compras 100 100
13/05 Compras 200 300
13/05 Compras 150 450
y asi ir sumando de acuerdo a los montos
tengo esta rutina que me funciona para la primera fila pero a la segunda fila y siguientes no camina

Código:

Dim item As ListViewItem
        item = New ListViewItem(DateTimePicker1.Text)
        item.SubItems.Add(txtConcepto.Text)
        item.SubItems.Add(txtMonto.Text)
        If listControl.Items.Count = 0 Then
            item.SubItems.Add(txtMonto.Text)
        ElseIf listControl.Items.Count = 1 Then
            Dim Total As Double
            For i = 1 To listControl.Items.Count - 1
                Total = Total + listControl.Items(i).SubItems(2).Text
            Next

            item.SubItems.Add(Total)
        End If
        item.SubItems.Add(txtObservaciones.Text)
        listControl.Items.Add(item)

Espero puedan darme una mano chicos

Saludos
Carlos

[Aquaventus]

Hola carlosanpy pues ahi solo cuentas si la lista tiene solo 1 miembro o esta vacio pero no hace nada si tiene mas de 2 items, el codigo seria de esta manera :

Código vb.net:

Dim item As ListViewItem
        item = New ListViewItem(DateTimePicker1.Text)
        item.SubItems.Add(txtConcepto.Text)
        item.SubItems.Add(txtMonto.Text)
        If listControl.Items.Count = 0 Then
            item.SubItems.Add(txtMonto.Text)
        'Te falto decirle que si es mayor ó igual para que recorra todos los items
        ElseIf listControl.Items.Count >= 1 Then
            Dim Total As Double
            For i = 1 To listControl.Items.Count - 1
                ' Y Convertir la cadena en Double para que sume correctamente
                Total = Total + Convert.toDouble(listControl.Items(i).SubItems(2).Text)
            Next
 
            item.SubItems.Add(Total)
        End If
        item.SubItems.Add(txtObservaciones.Text)
        listControl.Items.Add(item)
 

[carlosanpy]

Hola
gracias por tu respuesta

pero no suma, mas bien inserta el primer registro ej 100
pero en el segundo registro insertando de nuevo 100 el valor de la suma es 0, luego vuelve de nuevo a 100 y a partir de alli recien se visualiza 200
la secuencia de suma (ej. 100) resulta asi
100
0
100
200

alguna sugerencia?

Saludos
Carlos

[Aquaventus]

Podrias poner tu codigo completo para ver mejor el panorama...?

[carlosanpy]

Código:

Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSumar.Click
        Dim item As ListViewItem
        item = New ListViewItem(DateTimePicker1.Text)
        item.SubItems.Add(txtConcepto.Text)
        item.SubItems.Add(txtMonto.Text)
        If listControl.Items.Count = 0 Then
            item.SubItems.Add(txtMonto.Text)
            'Te falto decirle que si es mayor ó igual para que recorra todos los items
        ElseIf listControl.Items.Count >= 1 Then
            Dim Total As Double
            For i = 1 To listControl.Items.Count - 1
                ' Y Convertir la cadena en Double para que sume correctamente
                Total = Total + Convert.ToDouble(listControl.Items(i).SubItems(2).Text)
            Next

            item.SubItems.Add(Total)
        End If
        item.SubItems.Add(txtObservaciones.Text)
        listControl.Items.Add(item)

        
    End Sub

para el segundo registro
se intercepta en "For i = 1 To listControl.Items.Count - 1" pero pasa directo al next

[Aquaventus]

pasa directo porque tu "i" debe ser 0

[carlosanpy]

Si por eso es
Opciones?

[Aquaventus]

Opciones?... me referia a que debe de ser :

For i as Integer = 0 to listControl.Items.Count - 1
....
Next

[carlosanpy]

Bueno
Veo que me complico al santo botón

al final le agregue un label y en ella resumo la suma
el código quedó así

Código HTML:

Dim item As ListViewItem
    item = New ListViewItem(DateTimePicker1.Text)
    item.SubItems.Add(txtConcepto.Text)
    item.SubItems.Add(txtMonto.Text)
    item.SubItems.Add(txtObservaciones.Text)
    listControl.Items.Add(item)
Dim Total As Double
    For i = 0 To listControl.Items.Count - 1
         Total = Total + Convert.ToDouble(listControl.Items(i).SubItems(2).Text)
    Next
    lblTotal.Text = Total

Gracias por todo