overfør fra ene liste til anden liste

Hej

Du skal gennemløbe liste nr 1 med en løkke og tømme liste 2 inden du tilføjer til den.

M.v.h.  Jørn

der skal vælges nogle fra liste1 og og kun de skal overføres over til liste2
har du kode eks.

den korekte kode vil være for overflytning mellem to listboxe:


Public Sub CopySelected(ByRef frm As Form)

    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
   
   
    Set ctlSource = frm!Lst_box1
    Set ctlDest = frm!lst_box2
   
    For intCurrentRow = 0 To ctlSource.ListCount - 1
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & ctlSource.Column(0, _
                intCurrentRow) & ";"
        End If
    Next intCurrentRow
   
    ' Reset destination control's RowSource property.
    ctlDest.RowSource = ""
    ctlDest.RowSource = strItems
   
    Set ctlSource = Nothing
    Set ctlDest = Nothing

End Sub

dermed lukkes denne sprg

Du kan nu også gøre det uden at oprette objekterne ctlSource og ctlDest.

Det kan faktisk gøres så enkelt som:





  If List1.ListIndex >= 0 Then
    List2.AddItem List1.List(List1.ListIndex)
  End If