Addition af subitems

i On_Change eventen for listboksen tilfjer du blot

For i  = 0 to ListBox1.ListCount –1
    Total = Total + ListBox1.List(i)
Next i


Text1.Text=Total

/Jennemaan

Nu var kodestumpen et eksempel for hvordan jeg ville ha´ beregningen i en LISTVIEW og ikke listbox

år... jeg skal da også lige læse spørgsmålet ;o)

Her er et eksempel på en tabel i et listview.

Listviewet har jeg givet 5 kolonner (tekst, værdi,værdi2,værdi3,total), således at

listitem teksten er \"tekst\" og subitems er værdi1,..2..., total

Jeg fylder listem\'et med værdier og beregner summer både rækkevist og søjlevist.

Private Sub Form_Load()

Dim lItem As ListItem
For X = 1 To 10
Set lItem = Me.ListView1.ListItems.Add(, , \"Tekst \" & X)
lItem.SubItems(1) = Rnd() * 10
lItem.SubItems(2) = Rnd() * 10
lItem.SubItems(3) = Rnd() * 10
lItem.SubItems(4) = lItem.SubItems(1) + lItem.SubItems(2) + lItem.SubItems(3)
Next X
Set lItem = Me.ListView1.ListItems.Add(, , \"Total\")
For Y = 1 To 3
    For X = 1 To 10
        lItem.SubItems(Y) = lItem.SubItems(Y) + Me.ListView1.ListItems(X).SubItems(Y)
    Next X
   

Next Y


End Sub


/Jennemaan

Du skal være opmærksom på at de enkelte subitems er en String, så derfor skal du passe på med decimaltegn og den slags når du laver regneoperationer.

/Jennemaan

Problemet er så, at jeg ikke er super stærk til VB… jeg beskriver lige problemet på en anden måde..
Du kan nok hurtigt se hvad der sker

Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    With ListView1
    Set moDragItem1 = .SelectedItem
    Set moDragItem2 = .SelectedItem.ListSubItems(1)
    Set moDragItem3 = .SelectedItem.ListSubItems(2)
    Set moDragItem4 = .SelectedItem.ListSubItems(3)
    End With
End Sub
Private Sub Listview1_OLECompleteDrag(Effect As Long)
Dim i As Integer
    msDragSource = \"\"
    Set moDragItem1 = Nothing
    Set moDragItem2 = Nothing
    Set moDragItem3 = Nothing
    Set moDragItem4 = Nothing
End Sub

Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    With ListView2.ListItems.Add(, , moDragItem1, 1, 1)
    .SubItems(1) = moDragItem2
    .SubItems(2) = moDragItem3
    .SubItems(3) = moDragItem4
    End With
End Sub

Jeg skal jo nok lave min beregning  ved Drop, men hvordan adderer jeg så SubItem(3), hver gang der tilskrives data i Listview2


håber du forstår B-)

Dim lItem As Listitem
Dim dblTotal As Double
For Each lItem In ListView2.ListItems
dblTotal=dblTotal+lItem.SubItems(3)
Next lItem

Msgbox dblTotal

/Jennemaan

hmmm virker ikke i VBA.....
kender ikke For Each lItem In ListView2.ListItems

Ok, prøv så

For i=0 To Listview1.ListItems.Count-1
  Total=Total + ListView1.Listitems(i).Subitems(3)
Next i

Msgbox Total

/Jennemaan

hmmmm index out of bounds
.. tror jeg næppe

For i=1 To Listview1.ListItems.Count
  Total=Total + ListView1.Listitems(i).Subitems(3)
Next i

Msgbox Total

1000 tak.. du var en stor hjælp!! :))