[RESOLVED] Adding Up Numbers In ListView Column

[SeanK]

I found this from a Google search and I need the VB.NET equivalent to Martin Liss' code

Dim lngIndex As Long
    Dim lngTot As Long
    
    For lngIndex = 1 To lv.ListItems.Count
        lngTot = lngTot + lv.ListItems(lngIndex).SubItems(1)
    Next
    
    MsgBox lngTot

I have

Dim intRptTotal As Integer = 0
For i As Integer = 1 To ListView1.Items.Count
      intRptTotal = intRptTotal + CInt(ListView1.Items(i).SubItems(1))
Next

But, I'm getting the error

Value of type 'System.Windows.Forms.ListViewItem.ListViewSubItem' can not be converted to 'Integer'

Basically, I need to total up a number column in a ListView.

[jmcilhinney]

You are getting a ListViewItem.ListViewSubItem here:

ListView1.Items(i).SubItems(1)

Once you've got that object, you get the text it displays from its Text property.

[SeanK]

I did add the Text property to it originally, but that gave me an error.

[Chris001]

The Listview in .NET is 0-based (VB6 is 1-based), so if you have 53 items, then loop from 0 to 52. ListView1.Items.Count will return 53, which means you're looping from 0 to 53 and index 53 doesn't exist.

You don't have to do "intRptTotal = intRptTotal + ....", but you can do "intRptTotal += ..." instead.

Dim intRptTotal As Integer = 0
For i As Integer = 0 To lvwReportCount.Items.Count - 1
      intRptTotal += CInt(lvwReportCount.Items(i).SubItems(1).Text)
Next

Alternatively, you can also do a for each loop.

For Each lvw As ListViewItem In lvwReportCount.Items
    intRptTotal += CInt(lvw.SubItems(1).Text)
Next

[MattP]

It's 0 based so you need to offset by 1 from the count.

For i As Integer = 0 To lvwReportCount.Items.Count - 1

[vb_ftw]

what chris wrote...i added another line which will help u accomplish what u r after...

Dim intRptTotal As Integer = 0
        For i As Integer = 0 To lvwReportCount.Items.Count - 1
            intRptTotal += CInt(lvwReportCount.Items(i).Text)
            intRptTotal += CInt(lvwReportCount.Items(i).SubItems(1).Text)
        Next

For Each lvw As ListViewItem In lvwReportCount.Items
            intRptTotal += CInt(lvw.Text)
            intRptTotal += CInt(lvw.SubItems(1).Text)
        Next

[SeanK]

The Listview in .NET is 0-based (VB6 is 1-based), so if you have 53 items, then loop from 0 to 52. ListView1.Items.Count will return 53, which means you're looping from 0 to 53 and index 53 doesn't exist.

That is where I was going wrong...I was still using a 1-based loop. Thanks.

You don't have to do "intRptTotal = intRptTotal + ....", but you can do "intRptTotal += ..." instead.

I know I can do it that way, but I don't, and I won't.

I find it far more clear to use variable = variable + newvariable

Old dog...new tricks...etc.