Van Listbox 1 naar Listbox 2 verplaatden en andersom

[weswillem]

Hierin gaat fout de IDlist en Valuelist
Bij IdList = ds.Tables(0).Rows(i).Item(0)
ValueList = ds.Tables(0).Rows(i).Item(1)

Volgens mij moet ik deze delareren, maar als wat?

 Private Sub TakenVullen()
        Dim irij As Integer
        Dim iAantalItems As Integer

        ds.Clear()
        Try
            Dim ds As DataSet = New DataSet
            mySQL = "SELECT * from TaakItems"
            da = New OleDb.OleDbDataAdapter(mySQL, Conn)

            da.Fill(ds, "Zorgboerderij")
            Dim iAantal As Integer = ds.Tables("Zorgboerderij").Rows.Count
            ' MsgBox(iAantal)
            iAantalItems = 0
            irij = 0
            For i As Integer = 0 To iAantal - 1 Step 1
                ReDim Preserve IdList(iAantalItems)
                ReDim Preserve ValueList(iAantalItems)
           With ListboxBron
                .IdList = ds.Tables(0).Rows(i).Item(0)
                .ValueList = ds.Tables(0).Rows(i).Item(1)
           End with
                iAantalItems = iAantalItems + 1
                'irij = irij + 1
            Next i
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR Listboxvullen", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            Conn.Close()
            da.Dispose()
        End Try

    End Sub

 

[MartinJM]

Hoi,

Ik weet niet hoe je "IdList" en "ValueList" precies moet gebruiken, maar omdat beide namen "List" bevatten, denk ik dat je er een lijst en niet een item in moet proberen te zetten.

Misschien werkt het wel goed als je het item aan de lijst probeert toe te voegen, maar dat moet je zelf even proberen.

MartinJM

 

[weswillem]

Zo werkt het wel

Private Sub TakenVullen()
        Try
            Dim ds As DataSet = New DataSet
            ds.Clear()
            mySQL = "SELECT * from TaakItems"
            da = New OleDb.OleDbDataAdapter(mySQL, Conn)
            da.Fill(ds, "Zorgboerderij")
            Dim iAantal As Integer = ds.Tables("Zorgboerderij").Rows.Count
            'Listview op SmallItem
            'Listview iets breder maken om horizontale scroll te voorkomen
            For i As Integer = 0 To iAantal - 1 Step 1
                Dim LstItem As New ListViewItem
                LstItem.Tag = ds.Tables(0).Rows(i).Item(0)
                LstItem.Text = ds.Tables(0).Rows(i).Item(1)
                ListView1.Items.Add(LstItem)
            Next i
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR Taken Vullen", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            Conn.Close()
        End Try
    End Sub

@MartinJM
Bedankt voor het meedenken.