Discussion :

[maxmarie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[HULK]

essaye ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maxmarie]

Ca plante quand même....

[HULK]

ca te met quoi comme erreur ?

[maxmarie]

Rien de spécifique....

IRB2007.exe
ArgumentOutOfRangeException
Application;;run+Oxf
Accueil:Main+Oxa

[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 ?