Listbox 4 kolommen

[Joske2000]

Goedeavond,

Als ik een record selecteer in LstStock, dan wordt dit bij een dubbelklik netjes gekopieerd naar LstOrder.
Er wordt echter slechts de eerste kolom van het record gekopieerd.
Hoe zorg ik ervoor dat alle 4 kolomen van de ene listbox naar de andere gaan ?

Bedankt,

Joske

Private Sub LstStock_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

        Dim IOrd As Long

    For IOrd = 0 To Me.LstStock.ListCount - 1
        If Me.LstStock.Selected(IOrd) = True Then
            Me.LstOrder.AddItem Me.LstStock.List(IOrd, 2)
        End If
    Next IOrd

    For IOrd = Me.LstStock.ListCount - 1 To 0 Step -1
        If Me.LstStock.Selected(IOrd) = True Then
            Me.LstStock.RemoveItem IOrd
        End If
    Next IOrd

Als er een bestandje moet gebouwd worden, dan hoor ik het wel.
Groetjes,

Joske

 

[loek010]

Zonder een voorbeeldbestandje denk ik misschien dit instellen

 

[SjonR]

Probeer dit eens:

Private Sub LstStock_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For IOrd = 0 To Me.LstStock.ListCount
    If LstStock.Selected(IOrd) Then
    LstOrder.AddItem
        For i = 0 To LstStock.ColumnCount - 1
            LstOrder.List(LstOrder.ListCount - 1, i) = LstStock.List(IOrd, i)
        Next
    End If
    Next
End Sub

 

[VenA]

Bij een dubbelklik kan je volgens mij geen multiselect gebruiken

Private Sub LstStock_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  With LstStock
    LstOrder.AddItem
      For j = 0 To 3
        LstOrder.List(LstOrder.ListCount - 1, j) = .Column(j)
      Next j
      .RemoveItem (.ListIndex)
  End With
End Sub

 

[Joske2000]

VenA

Bedankt, deze doet het perfect.

Thanks,

Joske