getting total from Values in listview: Listview total

by: Surone1Posted on 2009-09-04 at 07:12:08ID: 25259830

For i = 0 To AanvulList.ListCount - 1

total = total + cdbl(nz(AanvulList.ItemData(i)))

Next i

msgbox total & vbcrlf & ccur(total)

by: Surone1Posted on 2009-09-04 at 07:12:40ID: 25259833

replace AanvulList with the name of your listbox

by: awolarczukPosted on 2009-09-04 at 18:39:40ID: 25264592

i have a list box with 4 column and need to add the total in the 4th how do i tell it the Column
also what do i need to dim ect

by: awolarczukPosted on 2009-09-04 at 18:41:31ID: 25264597

also what is NZ pointing to???

by: awolarczukPosted on 2009-09-04 at 18:42:15ID: 25264598

This is the code i have so far
i need it to add colume 4 to send the results to a test box

Thanks

     Dim total As Double
        Dim objlst As ListViewItem
 
 
 
 
        For i = 0 To invoicelist.ListCount - 1
 
            Total = Total + CDbl(nz(invoicelist.ItemData(i)))
 
        Next i
 
        MsgBox(Total & vbCrLf & ccur(Total))
 
 
    End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Select all Open in new window

by: Surone1Posted on 2009-09-05 at 12:23:12ID: 25267408

the nz catches null values, and i put it inthere just in case.
i'll be back on this shortly

by: Surone1Posted on 2009-09-15 at 05:43:47ID: 25334204

try invoicelist.Column(3, i)

by: robberbaronPosted on 2009-09-15 at 06:06:37ID: 25334420

listbox is not really multi column.
it will display that way only when the 'list' is full.
"Columns Property (ListBox)
Returns or sets a value that determines whether a ListBox control scrolls vertically or horizontally and how the items in the columns are displayed. If it scrolls horizontally, the Columns property determines how many columns are displayed.
Setting Description
0 (Default) Items are arranged in a single column and the ListBox scrolls vertically.
1 to n..... Items are arranged in snaking columns, filling the first column, then the second column, and so on. The ListBox scrolls horizontally and displays the specified number of columns."

how is your data populated into the listbox ? you can use arithmatic to get pseudo-columns out.

is there data in the itemdata property or do you want to sum the list values ?

by: awolarczukPosted on 2009-09-15 at 13:09:06ID: 25338823

Rob
I need the sum of the list value
There are 4 column 2 of which are number and i need to add the numbers in each on the fly so when a new one i entered it will add up

by: robberbaronPosted on 2009-09-16 at 04:23:30ID: 25344221

sorry. was confused with ListBox for a while.

attached test code does what you want. it loops through all the listitems, summing the values of the selected subitems

BUT. there is no event for Add or Change to the list view so you must call the Update_Totals routine after any add operation or at the end of a series of adds.

hope this helps.

Option Explicit
'add a listview, command button and 2 labels to a form, with CommonControls referenced'
Private Sub Command1_Click()
   
   Dim cItm As ColumnHeader
   Dim lItm As ListItem
   
   Dim i As Integer
 
   For i = 1 To 4 ' Create four ColumnHeader objects.'
      Set cItm = ListView1.ColumnHeaders.Add(, , "Col " & i)
   Next i
 
   ListView1.View = lvwReport
 
   For i = 1 To 10
        Set lItm = ListView1.ListItems.Add()
        lItm.Text = "Test" & Str(i)
        lItm.SubItems(1) = Format(Rnd(5), "0.000")
        lItm.SubItems(2) = Format(Rnd(5), "0.000")
        
   Next i
    
   Update_Totals
End Sub
 
 
Sub Update_Totals()
    Dim sTotal1 As Single, sTotal2 As Single
    Dim xItm As ListItem, i As Integer
    For i = 1 To ListView1.ListItems.Count
        Set xItm = ListView1.ListItems(i)
        sTotal1 = sTotal1 + Val(xItm.SubItems(1))
        sTotal2 = sTotal2 + Val(xItm.SubItems(2))
    Next i
        
    Label1.Caption = Str(sTotal1)
    Label2.Caption = Str(sTotal2)
    
 
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Select all Open in new window

by: awolarczukPosted on 2009-09-19 at 01:55:27ID: 25372130

Thanks mate this looks like the code for VB6 i am using vb 2008 , i have taken the code for the update_totals and tested it and having some issues
(i have already got a listview on my page and i am just needing to get the totals from this)

I have attached the code as well as a image for this error

thanks for your help so far it olooks like i am almost there thanks to you

Module gtotal
    Public Sub gt()
 
        Dim sTotal1 As Single, sTotal2 As Single
        Dim xItm As ListViewItem, i As Integer
        For i = 1 To Form1.invoicelist.ListViewItem.Count
            xItm = Form1.invoicelist.ListItems(i)
            sTotal1 = sTotal1 + Val(xItm.SubItems(1))
            sTotal2 = sTotal2 + Val(xItm.SubItems(2))
        Next i
 
        Form1.t1.Text = Str(sTotal1)
        Form1.t2.Text = Str(sTotal2)
 
 
 
    End Sub
End Module

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Select all Open in new window

errror1.gif
- 18 KB
errror1

by: robberbaronPosted on 2009-09-20 at 21:44:19ID: 25380380

it's confusing but this is the vb5/6 TA.

i think for vb2008, the property is just .Items
http://msdn.microsoft.com/en-us/library/system.windows.forms.listview.listviewitemcollection.aspx
ie Form1.invoicelist.items(i)

refer the example
http://msdn.microsoft.com/en-us/library/system.windows.forms.listview.selectedindexcollection.aspx

price += Double.Parse(Me.ListView1.Items(index).SubItems(1).Text)

by: awolarczukPosted on 2009-10-26 at 03:38:36ID: 31624919

the advise i got was not for vb2008 it was for vb6, i did ask for 2008 and had to find it out at another location

Question

getting total from Values in listview

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Listview total

Visual Basic Programming

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press