Add listview subitems up and give total?

[JamieWarren09]

Hi guys, I have numbers in a listview sub item.

Is it possible that on command1_click that it adds everything up and gives the total?

For example I have

1
2
8
2

is it possible to than make a label give the total as 13

thanks

[TysonLPrice]

Something like (not tested):

Dim iItem As ListItem
Dim lngCount as long
 For Each iItem In YourListView.ListItems
     lngCount = lngCount + CLng(iItem.SubItems(PisitionOfYourSubItem))
 Next

For example subitem is number 5

 For Each iItem In YourListView.ListItems
     lngCount = lngCount + CLng(iItem.SubItems(5))
 Next

[JamieWarren09]

Hi mate, that works how ever im adding up prices of products.

Is it possible to format it to

230,521

as apose to 230521

[JamieWarren09]

Actually just noticed it is giving the incorrect total.

on one listview the total comes to 88,000

how ever it's giving the total with your code as 176,000

[TysonLPrice]

I gave you two different examples. Just run one of them.

Look up Format to add the commas.

[JamieWarren09]

Oh right I see!

I am now trying to add up times to create the total time spent.

00:01:32
00:03:58

Should total up to 00:05:00

how ever it just shows 0.

Any ideas pal ?

[Zvoni]

Dim MyTimeVar As Date

'Do your Time additions

MyTimeLabel.Caption=Format(MyTimeVar,"hh:mm:ss")

[JamieWarren09]

Hi Zvoni, That did not work as i am trying to total up the time, when i said it shows 0, i meant 00:00:00 as apose to actually totalling it up with the codes above.

[Zvoni]

Can you post the relevant code where you're trying to add those time-values?
Please include your Dim's

[JamieWarren09]

Dim iItem As ListItem
Dim lngCount As Long

Set rs = db.OpenRecordset("SELECT * FROM Calls WHERE `Agent` = " & "'" & ListView1.SelectedItem & "' AND `Date` BETWEEN " & "'" & DTPicker1.value & "' AND " & "'" & DTPicker2.value & "'")
ListView2.ListItems.Clear
Do While Not rs.EOF
Set lvwItem1 = ListView2.ListItems.Add(, , rs("Length").value)



rs.MoveNext
Loop
rs.Close


For Each iItem In ListView2.ListItems
lngCount = lngCount + CLng(iItem)
Next

time.Caption = Format(lngCount, "hh:mm:ss")

[Zvoni]

Ah, there's your mistake.
You've Dim-ed it as a Long instead of Date

Question: What Datatype is "Length" in your Database?

Dim lngCount as Date
.
.
For Each iItem In ListView2.ListItems
lngCount = lngCount + CDate(iItem)
Next

time.Caption = Format(lngCount, "hh:mm:ss")

[TysonLPrice]

It didn't come out until post #5 the OP is trying to add up time. That makes it a different ballgame. I can help in a few hours but that changes taking a date time column and figuring out total time form a listview

Anyone?

[Zvoni]

*head scratch*

I don't remember, but don't you have to use the DateAdd-Function when adding Date/Time-Values?

Have to read up on it...

EDIT: DateAdd is only for adding an interval to a given Date/Time