[vb6] STRANO EVENTO CON LISTVIEW

[raffaeu]

Ciao scusate il cpslock nel titolo ..

Ho un ciclo che mi popola una listview ma vedo solo le prime due colonne ..

    Dim itm As ListItem
    Dim STRkey As String
    Do While Not nodeRS.EOF
       STRkey = CStr(nodeRS!ID)
       STRkey = "K" & STRkey
       Set itm = lstREGISTRAZIONE.ListItems.Add(Key:=STRkey, Text:=nodeRS!DATA_REG)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!Descrizione)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!Importo)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DARE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DECODARE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!AVERE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DECOAVERE)
       nodeRS.MoveNext
    Loop

Cosa sbaglio?
Forse devo inserire gli indici per listSubItems?

[raffaeu]

risolto

    Dim itm As ListItem
    Dim sitm As ListSubItem
    Dim STRkey As String
    Do While Not nodeRS.EOF
       STRkey = CStr(nodeRS!ID)
       STRkey = "K" & STRkey
        Set itm = lstREGISTRAZIONE.ListItems.Add
        itm.Text = nodeRS!DATA_REG
        Set sitm = itm.ListSubItems.Add(1)
        sitm.Text = nodeRS!Descrizione
        Set sitm = itm.ListSubItems.Add(2)
        sitm.Text = nodeRS!Importo
        Set sitm = itm.ListSubItems.Add(3)
        sitm.Text = nodeRS!DARE
        Set sitm = itm.ListSubItems.Add(4)
        sitm.Text = nodeRS!DECODARE
        Set sitm = itm.ListSubItems.Add(5)
        sitm.Text = nodeRS!AVERE
        Set sitm = itm.ListSubItems.Add(6)
        sitm.Text = nodeRS!DECOAVERE
       nodeRS.MoveNext
    Loop