Vullen data in listview

[weswillem]

Het vullen van en listview in VBA ken ik wel.
Daar spreekt men over subitems om 1 rij te vullen.
Kennelijk is dit bij .NET anders.
De DB wordt wel uitgelezen, maar alles staat onder elkaar in de eerste
kolom van de listview. Ik doe iets fout maar wat.
Iemand die het wel ziet?

 Private Sub VullvwOverzicht()

        Dim J As Integer
        Dim T As Integer

        Conn.Close()
        ds.Clear()
        mySQL = "select ID, Begeleider, Taak, Smiley from Taken"
        da = New OleDb.OleDbDataAdapter(mySQL, Conn)
        da.Fill(ds, "Zorgboerderij")
        Dim iAantal As Integer = ds.Tables("Zorgboerderij").Rows.Count

        lvwOverzicht.Items.Clear()
        MsgBox(iAantal)
        Dim x As Integer = 1

        lvwOverzicht.Items.Add(ds.Tables(0).Rows(T).Item(4)) 'ID
        For T = 0 To iAantal - 1 'aantal records
            For J = 5 To 7 'de andere kolommen
                lvwOverzicht.Items.Add(ds.Tables(0).Rows(T).Item(J)) 'zijn eigenlijk de subitems
            Next J
        Next T
        lvwOverzicht.Refresh()

    End Sub

 

[MartinJM]

Hoi,

In vb.net gebruik je daarvoor ook de subitems, maar dan de subitems van de items. Dus dan zou je de volgende loop krijgen:
[CPP] For T As Integer = 0 To iAantal - 1 Step 1
Dim Item As New ListViewItem
Item.Text = ds.Tables(0).Rows(T).Item(4)
For J As Integer = 5 To 7 Step 1
Item.SubItems.Add(ds.Tables(0).Rows(T).Item(J))
Next
lvwOverzicht.Items.Add(Item)
Next[/CPP]

Ik heb de code zelf niet getest, vanwege de database, maar volgens mij zou het zo moeten werken.

Ik hoop dat je zo weer verder kan!

MartinJM

 

[weswillem]

Martin

Ff losse polsje, maar klasse.
Ik kan weer verder, heb dan ook gelijk een voorbeeld How to