problème sur un If

Version imprimable

13/04/2011, 16h47
Shadam

problème sur un If

Bonjour tout le monde,

J'ai un petit souci sur un test :

Code:

If DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> ("logo" Or "produit" Or "langue") Then

En déboguage visual me dit :

Citation:

La conversion de la chaîne "test" en type 'Double' n'est pas valide.

et je ne comprends pas bien pourquoi, est ce mon test qui n'est pas bon?
13/04/2011, 17h03
Pol63

je voterais pour le "a" or "b" or "c"
or sert à additionner des nombres au niveau binaire
enfin dans tous les cas on ne peut pas écrire si simplement si une chaine <> une chaine ou une autre
il faut faire une chaine <> une chaine or une chaine <> une autre chaine
ou éventuellement faire une collections de chaine à tester et utiliser contains

Je ne suis pas sur de ma réponse, mais je te propose de vérifier :
Code:

1 2 3 Dim mavaleur as string = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower If mavaleur <> "logo" and mavaleur <> "produit" and mavaleur <> "langue" Then
Il me semble en effet que l'on ne peut pas spécifier une liste de valeurs entre parenthèses comme tu l'as fait.

EDIT : Mis trop de temps à répondre, mais même avis que la personne du dessus, ce qui semble confirmer l'origine du problème.

ok c'est bon merci de vos réponses :ccool:

Code:

1
2
3
4
 
If Not (DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "logo" Or
                DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "produit" Or
                        DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "langue") Then

Code:

1
2
dim valeurdgv as string = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower
If {"logo", "produit", "langue"}.Contains(valeurdgv) Then

plus lisible

Oui mais finalement j'ai fait un mix de vos 2 solutions ;)

Code:

1
2
Dim monCode As String = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower
        If Not (monCode = "logo" Or monCode = "produit" Or monCode = "langue") Then

encore merci