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
Als er een bestandje moet gebouwd worden, dan hoor ik het wel.
Groetjes,
Joske
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
Code:
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