errore caricamento listview

[gaullo]

Ciao a tutti, mi capita una cosa strana!!!
Sto cercando di caricare dei dati da una tabella in una listview, nel metodo proposto da MSDN e usato anche nelle discussioni. Ma mi da un errore quando carico il subitem (invalid property value)
non riesco a capire cos'è .... ieri ero riuscito a risolverlo, ma oggi no. Posto il codice

Dim conn As ADODB.Connection
Dim tony As New ADODB.Recordset
SQL = "select * from tony"
tony.Open SQL, conn, 3, 3

Dim clmX As ColumnHeader
   Set clmX = ListView1.ColumnHeaders.Add(, , "id")  
   Set clmX = ListView1.ColumnHeaders.Add(, , "Tipologia Sede")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Città")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Indirizzo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Linea")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Totale Annuo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota2")

Dim campo As ListItem

Do While Not tony.EOF
   Set campo = ListView1.ListItems.Add(, , CStr(tony(0)))
   For i = 0 To 6
       campo.SubItems(i) = CStr(tony(i + 1))
   next
   tony.movenext
loop

Vi prego aiutatemi uregnte!!!!

[gaullo]

....ma non rispondete xchè non conoscete le listview o perchè in teoria non dovrebbe dare problemi???
Non so che fare, facendo il debug ho notato che vede i dati del db,
ma se mi posiziono con il cursore su campo.SubItems mi dice sempre
=<invalid property value>
Forse sto dimenticando qualcosa??
Devo dimensionare in maniera diversa la variabile campo ho settare qualche parametro.
Di tentativi ne ho fatti ma non mi danno soluzioni.
AIUTO!!!!!!!!!!!!!!!!!!!!!!!

[ddies]

In una variabile ind ci metti il numero di Add che hai fatto in modo da referenziare campo all'ultimo elemento aggiunto.
ind=0

while....
ind=ind+1
ListView1.ListItems.Add(, , CStr(tony(0)))
Set campo = ListView1.ListItems(ind)
...

[gaullo]

va che la riga :

ListView1.ListItems.Add(, , CStr(tony(0)))

non me la fa scrivere!!!!
esce fuori "Expected: ="

[ddies]

Togli la parentesi dopo add
ListView1.ListItems.Add , , CStr(tony(0))

[gaullo]

esce lo stesso problema iniziale: invalid property value

[ddies]

Che diavolo è sta cosa?
Dim campo As ListItem ???

Non avevo letto la definizione di campo.

sostituisci campo nel ciclo for con

ListView1.ListItems(ind)

e togli la set campo=

[gaullo]

Fatto, ma va come prima....
per riepilogo ecco com'è il codice adesso

Dim conn As ADODB.Connection
Dim tony As New ADODB.Recordset
SQL = "select * from tony"
tony.Open SQL, conn, 3, 3

Dim clmX As ColumnHeader
   Set clmX = ListView1.ColumnHeaders.Add(, , "id")  
   Set clmX = ListView1.ColumnHeaders.Add(, , "Tipologia Sede")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Città")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Indirizzo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Linea")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Totale Annuo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota2")
 
   Do While Not tony.EOF
      ind = ind + 1
      ListView1.ListItems.Add , , CStr(tony(0))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            ListView1.ListItems(ind).SubItems(i) = CStr(tony(i + 1))
         End If
      Next
      tony.movenext
   loop

[xegallo]

 ListView1.ListItems.Add , , CStr(tony(0))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            ListView1.ListItems(ind).SubItems(i) = CStr(tony(i + 1))
         End If
      Next

sostituiscila con

dim mItem as listitem
set mItem = ListView1.ListItems.Add (, , CStr(tony(0)))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            mItem.listsubitems.add ,,CStr(tony(i + 1))
         End If
      Next

[gaullo]

GRANDE, finalmente funziona!!!!:mavieni: :mavieni:

Una curiosità.....il codice con cui ho aperto la discussione è quello che ho trovato sulla guida di vb...perchè non andava???
Grazie ancora..
Buona notte a tutti