Bug VB avec les listView

cs_zephyrin Messages postés 47 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 17 août 2006 - 1 oct. 2002 à 16:16
hubsm Messages postés 28 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 26 juin 2007 - 1 févr. 2006 à 22:37
Bonjour,

j'ai un problème lorsque je veux insérer un élément dans un controle de type listview.

Ce problème intervient seulement avec les objets ayant le code avec la valeur "Fxxx" où xxx sont des chiffres !
Dans les autres cas, ça passe !!!

Le code est ci-dessous.

Quelqu'un peut-il m'aider ??

Je suis vraiment emm...

Merci

Zephyrin

*******************

Option Explicit

Private Sub Command1_Click()
ppListeCharger "C0450", "C1450" ' ça passe
ppListeCharger "F0450", "C1450" ' ça plante !!
End Sub

Private Sub ppListeCharger(codelot As String, Liblot As String)
Dim objListe As ListItem

On Error GoTo ppFerrosCharger_ModifierLot
Set objListe = Me.lsvFerros.ListItems.Add(Key:=codelot)
objListe.Text = codelot
objListe.SubItems(1) = Liblot
objListe.SubItems(2) = 0
Exit Sub

ppFerrosCharger_ModifierLot:
Set objListe = Me.lsvFerros.ListItems.Item(codelot)
objListe.SubItems(2) = CInt(objListe.SubItems(2)) + 1
End Sub

Private Sub Command2_Click()
Me.lsvFerros.ColumnHeaders.Clear
Me.lsvFerros.ColumnHeaders.Add Index:=1, Key:="Code", Text:="Code", Width:=800
Me.lsvFerros.ColumnHeaders.Add Index:=2, Key:="Libelle", Text:="Libelle", Width:=1000
Me.lsvFerros.ColumnHeaders.Add Index:=3, Key:="lu", Text:="lu", Width:=1000

End Sub
A voir également:

6 réponses

cs_PrX Messages postés 91 Date d'inscription lundi 16 septembre 2002 Statut Membre Dernière intervention 2 novembre 2005
1 oct. 2002 à 17:14
C koi le msg d'error :question)

PrX, :) Beginner but not Out of Order
0
cs_zephyrin Messages postés 47 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 17 août 2006
1 oct. 2002 à 17:19
erreur '35603' : Clé non valide
sur l'insertion
Il passe donc à la lecture et comme il n'exite pas, j'ai alors l'erreur '35601' : élément introuvable (ce qui est normal puisque je cherche à l'ajouter).
0
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
2 oct. 2002 à 09:10
Salut,

Je viens de faire un copier-coller de ton code et chez moi tout fonctionne parfaitement...

Essaye peut-être de recréer une form avec un autre listview et recopier le code...

Bonne chance.

Tchao

NéoB
0
cs_zephyrin Messages postés 47 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 17 août 2006
2 oct. 2002 à 09:57
N'y a-t'il pas un patch qui le corrige ?
je suis en VB6 pack sp5
et que j'utilise le "microsoft windows common controls" version 6.0 ou version 5.0

cela ne change rien !!!

Même dans une projet simple avec 1 fenêtre et 1 controle !

Zephyrin
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_zephyrin Messages postés 47 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 17 août 2006
7 oct. 2002 à 16:03
Salut,

en fait je suis en VB6, SP5 mais sous NT4 !
Car sous Windows 2000 ça ne plante pas !

Et l'exécutable généré sous 2000 et exécuté sous NT4 plante.

Zephytin
0
hubsm Messages postés 28 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 26 juin 2007
1 févr. 2006 à 22:37
0
Rejoignez-nous