Problemen met listview vullen

[weswillem]

Ik heb een rij met vanaf kolom 4 tot 17 gevuld met data.
kolom 4 en 5 zijn gevuld met TijdIn en TijdUit alsmede rest.

Wat ik eigenlijk wil is een listview vullen met
kolom1 = ID van bovengenoemde rij
kolom2 = TijdIn (uit kolom 4)
Kolom3 = TijdUit (uit kolom 5
dan nieuwe regel in listview
kolom1 = ID van bovengenoemde rij
kolom2 = TijdIn (uit kolom 6)
Kolom3 = TijdUit (uit kolom 7)
enzovoort totdat ik bij kolom 18 kom.
Onderstaande werkt niet heleemaal goed.
Krijg elke keer de melding dat hij het item niet kan toevoegen op één plaats.
Iemand een oplossing?

For i As Integer = 0 To iAantal - 1
                If ds.Tables(0).Rows(i).Item(0) = frmZorgboerderij.IndexWeeknummer Then

                    Dim j As Integer
                    Dim k As Integer
                    Dim LstItem As New ListViewItem
                    For j = 4 To 18 - 1 Step 1   '17 kolommen

                        lvwUrenperDag.Items.Add(frmZorgboerderij.IndexWeeknummer) 'ID
                        For k = 2 To 3 Step 1 'is laatste 2 kolommen in listview
                            j = j + 1
                            LstItem.SubItems.Add(ds.Tables(0).Rows(i).Item(j))
                        Next k
                        lvwUrenPerDag.Items.Add(LstItem)

                    Next j
                End If
            Next i

 

[MartinJM]

Hoi,

Probeer dit eens:
[CPP] For i As Integer = 0 To iAantal - 1
If ds.Tables(0).Rows(i).Item(0) = frmZorgboerderij.IndexWeeknummer Then
Dim j As Integer
Dim k As Integer
Dim LstItem As ListViewItem
For j = 4 To 18 - 1 Step 2 ''//17 kolommen
''//ListviewItem vernieuwen
LstItem = New ListViewItem

''//De ID als eerste:
LstItem.SubItems(0).Text = frmZorgboerderij.IndexWeeknummer
''//Dan de TijdIn, die in 'j' staat
LstItem.SubItems.Add(ds.Tables(0).Rows(i).Item(j))
''//Dan de TijdUit, die een item verder staat (dus 'j+1')
LstItem.SubItems.Add(ds.Tables(0).Rows(i).Item(j + 1))
Next
End If
Next[/CPP]

Ik heb het niet geprobeerd, maar ik denk dat het zo wel werkt.

MartinJM

 

[weswillem]

Thanx Martin
Mijn dank als leerling is zeer groot

De foutmelding krijg ik niet meer.
Ik zie alleen dat de listview niet gevuld wordt met data.

 

[MartinJM]

Hoi,

Sorry, mijn fout, ik was vergeten het item ook aan de listview toe te voegen:
[CPP] For i As Integer = 0 To iAantal - 1
If ds.Tables(0).Rows(i).Item(0) = frmZorgboerderij.IndexWeeknummer Then
Dim LstItem As ListViewItem
For j = 4 To 18 - 1 Step 2 ''//17 kolommen
''//ListviewItem vernieuwen
LstItem = New ListViewItem

''//De ID als eerste:
LstItem.SubItems(0).Text = frmZorgboerderij.IndexWeeknummer
''//Dan de TijdIn, die in 'j' staat
LstItem.SubItems.Add(ds.Tables(0).Rows(i).Item(j))
''//Dan de TijdUit, die een item verder staat (dus 'j+1')
LstItem.SubItems.Add(ds.Tables(0).Rows(i).Item(j + 1))

''//Het item aan de listview toevoegen
lvwUrenperDag.Items.Add(LstItem)
Next
End If
Next[/CPP]

 

[weswillem]

Bedankt Martin,

Had het inmiddels ook gezien, maar het werkt subliem
Mijn waardering voor je is groot.