[VB2005] Message d'erreur listview

Version imprimable

Bonjour,

je vous soumet un petit bug que je n'arrive pas a résoudre....

J'ai installé une listview a deux colonnes, avec case a cocher. LA première colonne est une liste d'items, la seconde une liste de valeur numérique correspondant a chaque item.

Le but de ma manoeuvre est d'additionner la somme des valeurs de tous les items cochés.

Ca, ca marche.

La colonne des items donne un truc de ce genre

Catégorie A

Item 1
Item 2
Item 3

Catégorie B

Item 1
Item 2
Item 3

Il n'y a un score uniquement en face des items, pas des catégories ou des espaces vides.

Le problême, c'est que si l'utilisateur coche une case ou il n'y a pas de score, ca plante.

J'essaye donc d'inclure une vérification pour que le calcul ne se fasse que si y'a un chiffre dans la seconde colonne.

J'ai essayé ca :
Code:

1 2 3 4 5 6 7 For Each wItem As ListViewItem In ListView1.Items If wItem.Checked Then If IsNumeric(wItem.SubItems(1).Text) Then wTotal += CType(wItem.SubItems(1).Text, Integer) End If End If Next
Pourtant, si une case avec aucun chiffre dans la 2nde colonne est cochée, ca plante le programme....

Comment je peux corriger ca (autrement qu'en mettant des 0 bien sur) ?

Merci d'avance

essaye ca :

Code:

1
2
3
4
5
6
7
8
 
For Each wItem As ListViewItem In ListView1.Items
            If wItem.Checked Then
                If not wItem.SubItems(1).Text is dbnull.value Then
                    wTotal += CType(wItem.SubItems(1).Text, Integer)
                End If
            End If
        Next

ou ca :

Code:

1
2
3
4
5
6
7
8
 
For Each wItem As ListViewItem In ListView1.Items
            If wItem.Checked Then
                If wItem.SubItems(1).Text <> "" Then
                    wTotal += CType(wItem.SubItems(1).Text, Integer)
                End If
            End If
        Next

19/06/2007, 15h07
maxmarie

Ca plante quand même....
19/06/2007, 15h10
HULK

ca te met quoi comme erreur ?
19/06/2007, 15h13
maxmarie

Rien de spécifique....

IRB2007.exe
ArgumentOutOfRangeException
Application;;run+Oxf
Accueil:Main+Oxa
19/06/2007, 15h47
SaumonAgile

C'est sans doute parce que "wItem.SubItems(1)" n'existe pas. Tu as essayé en vérifiant qu'il y a bien des subitems avant d'y accéder ?
19/06/2007, 18h28
maxmarie

Heu, l'idée semble bonne, mais je ne sais pas comme faire ce genre de vérification...

je pensais que c'etait avec <> "" qu'on faisait ca

comme les items ne peuvent prendre que les valeurs 10, 15, 20 et 30, j'ai essayé ca :

Code:

If wItem.SubItems(1).Text = "10" Or wItem.SubItems(1).Text = "20" Or wItem.SubItems(1).Text = "30" Or wItem.SubItems(1).Text = "15" Then

mais ca marche pas non plus
20/06/2007, 08h17
SaumonAgile

Citation:

Envoyé par maxmarie

Heu, l'idée semble bonne, mais je ne sais pas comme faire ce genre de vérification...

Code:

If wItem.SubItems.Count > 1
20/06/2007, 09h40
maxmarie

Nickel !

Ca marche super, merci beaucoup pour ton aide...

question pour ma culture G en VB :

quelle différence dans ce code entre

wItem.SubItems et wItem.SubItems(1) ?
20/06/2007, 11h49
Aspic

SubItem c'est tout tes colonnes dans une ligne et SubItem(1) c'est seulement la Deuxième colonne (car la première colonne c'est l'index 0)

Exemple :

Dans une ListView j'ai 3 colonnes : Nom, Prenom et Age

SubItem contient le Nom, Prenom et Age de la ligne.
SubItem(0) contient seulement le Nom
SubItem(1) contient seulement le Prenom
SubItem(2) contient seulement l'Age

Voila ++