J'ai résolu ce problème avec l'aide Vb de Visual Studio.
Voilà le code à rentrer sur un évènement, par exemple un click de bouton ou autre.
"
For i = 0 To MonRecordset.Fields.Count - 1
ListView1.ColumnHeaders.Add , , CStr(MonRecordset.Fields(i).Name), (ListView1.Width / MonRecordset.Fields.Count)
Next i
While Not MonRecordset.EOF
For i = 0 To MonRecordset.Fields.Count - 1
If i = 0 Then If Not IsNull(MonRecordset.Fields(i)) Then sString CStr(MonRecordset.Fields(i)) Else sString "Null"
Set temp = ListView1.ListView1Items.Add(, , sString)
Else
If Not (IsEmpty(MonRecordset.Fields(i))) Then If Not (IsNull(MonRecordset.Fields(i))) Then sString CStr(MonRecordset.Fields(i)) Else sString "Null"
temp.SubItems(i) = sString
End If
End If
Next i
sString = ""
MonRecordset.MoveNext
progress.Value = (i / MonRecordset.Fields.Count) * 100
Wend
If ListView1.ListView1Items.Count = 0 Then MsgBox "Aucune ligne pour cet entegistrement", vbInformation, "Safran"
"
SkaKro
Messages postés4Date d'inscriptionlundi 18 octobre 2004StatutMembreDernière intervention20 avril 2005 4 nov. 2004 à 18:46
Moi aussi j'ai le mêm problème... J'ai essayé avec listviewname.columnheaders.add(,,"Nom") pour créer et il me dit attendu: =
Donc j'ai écris
listviewname.ColumnHeaders.Add ,, "Nom" et là ça marche...
Mais j'ai un autre problème avec
listviewname.listitems.item(index).subitems(colone)=texte
où il me dit que l'index est hors limites
J'suis perdu...
Vous n’avez pas trouvé la réponse que vous recherchez ?
SkaKro
Messages postés4Date d'inscriptionlundi 18 octobre 2004StatutMembreDernière intervention20 avril 2005 8 nov. 2004 à 16:38
Il est bien là le problème... Il ne prend pas le 0 ni même le 1 ou quoi que ce soit d'autre... Ca me fait ça lorsque je créé une colone et aussi quand je veux la remplir.
Gorgot
Messages postés95Date d'inscriptionlundi 28 janvier 2002StatutMembreDernière intervention21 février 2008 16 nov. 2004 à 03:44
Je ne comprends pas trop? Tu veut remplir ta colone avec listviewname.listitems.item(index).subitems(colone)=texte ? C'est normal si tu essaye de faire cela que ça ne fonctionne pas. Faut faire qqch listviewname.listitems.add ou je ne sais plus trop (et j'ai pas vb6 d'ouvert).
Ya trop de trucs dans mà tête pour tout savoir par coeur mais si c'est ce que je crois. Voilà la solution a ton problème lol.
Gorgot