problème de conversion de types en vb.net

Version imprimable

Bonjour
je suis débutant en vb.net. J'écris une fonction qui prend en pramètre un integer (représentant le numéro de colonne dans un gridview) pour calculer la somme des cellules de cette colonne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function total(ByVal k As Integer) Dim s As Double s = 0 Dim ro As GridViewRow Dim x As Double For Each ro In GridView1.Rows x = CDbl(ro.Cells(k).Text) s = s + x Next Return s End Function
mais à l'exécution, j'obtient l'erreur suivant:

Citation:

Le format de la chaîne d'entrée est incorrect:
Ligne 205 : x = CDbl(ro.Cells(k).Text)

Pouvez vous m'aider?
Cordialement

30/07/2010, 10h51
mactwist69

Plutot que: ro.Cells(k).Text, y'a pas un truc du genre:ro.Cells(k).Value ?

En fait je peux pas le tester, parce que je crois que c'est du ASP.NET que tu fais?

Sinon, est ce qu'il y'a des cellules vide ou a null? Parce que tu ne fais pas de teste... Ca peut être une piste.

Est ce que ça bug a la première ligne ou a la n ième?
30/07/2010, 10h55
Sarawyn
En effet, je pense comme notre ami mactwist que la bonne méthode pour récupérer la chaine serait plutôt :
Code:

1 2 ro.Cells(k).Value.ToString()
La méthode ToString est très utile pour être sûr de retourner proprement une chaîne de caractères.
30/07/2010, 11h00
yrifka

RE
Citation:
Envoyé par Sarawyn

En effet, je pense comme notre ami mactwist que la bonne méthode pour récupérer la chaine serait plutôt :

Code:

1 2 ro.Cells(k).Value.ToString()

La méthode ToString est très utile pour être sûr de retourner proprement une chaîne de caractères.
Tout d'abord, merci beaucoup pour ta réponse.
en asp.net on n'a pas de .Value
aussi, j'ai besoin de retourner un double ( la somme ) et même j'ai fait:
Code:

1 2 3 dim st as string st = ro.Cells(k).Text.Tostring x = CDbl(st)
mais j'obtient la même erreur
30/07/2010, 11h09
mactwist69

Question bête mais dans tes cellules, tu as donc des nombres décimaux...

Est ce que le séparateur ne serait pas des points (plutôt que virgule)?
30/07/2010, 11h13
yrifka

RE

Citation:

Envoyé par mactwist69

Question bête mais dans tes cellules, tu as donc des nombres décimaux...

Est ce que le séparateur ne serait pas des points (plutôt que virgule)?

non pas du tout c'est aps une question bête :)
mon gridview sera rempli par l'utilisateur, donc il peut écrire soit des Integer soit des Double!
30/07/2010, 11h15
Sarawyn
Citation:
Envoyé par yrifka

Code:

1 2 3 dim st as string st = ro.Cells(k).Text.Tostring x = CDbl(st)

mais j'obtient la même erreur
Maintenant que tu as divisé le problème, il survient sur la récupération de chaîne ou sur la conversion ?
30/07/2010, 11h17
mactwist69

Citation:

Envoyé par yrifka

non pas du tout c'est aps une question bête :)
mon gridview sera rempli par l'utilisateur, donc il peut écrire soit des Integer soit des Double!

Et la réponse est ? Par ce qu'il met un point, Visual Studio n'arrivera pas a convertir to String en Double, de même si il y a un caractère.

Donc a ta place je ferai un:

Code:

MonString.Replace(".",",")

Et aussi un truc du genre:

Code:

If IsNumeric(MonString)

Pour être sur que la conversion marche.
30/07/2010, 11h24
yrifka

RE

Citation:

Envoyé par mactwist69

Et la réponse est ? Par ce qu'il met un point, Visual Studio n'arrivera pas a convertir to String en Double, de même si il y a un caractère.

Donc a ta place je ferai un:

Code:

MonString.Replace(".",",")

Et aussi un truc du genre:

Code:

If IsNumeric(MonString)

Pour être sur que la conversion marche.

merci beaucoup pour ta réponse, je vais essayer et t'informer des nouveautés

je fais maintenet comme suit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function total(ByVal k As Integer) As Double

        Dim x As Double
        dim s as double = 0
        Dim st as string

        For Each ro In GridView1.Rows
            st = ro.Cells(k).Text
            
            If IsNumeric(st) Then
                x = Convert.ToDouble(st)
            End If
            s = s + x
        Next
        Return s
    End Function

et j'affiche le résultat dans un msgbox:

Code:

msgbox(total(1).Tostring)

mais j'obtient toujours un 0 !

30/07/2010, 11h51
mactwist69

Alors.... petit conseil:

Mets un point d'arrêt au début de ta fonction est mais marcher ton code au pas a pas avec F10...

Je pense que tu verras surement, que aucune des cases te retourne ISNumeric a True (si il y a des points ou autre), donc il n'additionne jamais rien.

C'est pour ça qu'il faut remplacer tes points par des virgules... Enfin je dis ça mais en réalité tu ne m'as jamais répondu sur le format des valeurs de tes cellules....
30/07/2010, 11h54
yrifka

RE

Citation:

Envoyé par mactwist69

Alors.... petit conseil:

Mets un point d'arrêt au début de ta fonction est mais marcher ton code au pas a pas avec F10...

Je pense que tu verras surement, que aucune des cases te retourne ISNumeric a True (si il y a des points ou autre), donc il n'additionne jamais rien.

C'est pour ça qu'il faut remplacer tes points par des virgules... Enfin je dis ça mais en réalité tu ne m'as jamais répondu sur le format des valeurs de tes cellules....

je saisi moi même les données ( j'essaye avec des simples valeurs comme 2 et 3 ...) et je n'ai pas mis aucun Validator sur les textbox de mon gridview
30/07/2010, 11h57
mactwist69

fonctionne au pas a pas, et regarde ce qu'il se passe au fur et à mesure... et regarde ce qu'il y a dans tes variables.

Fuseau horaire GMT +2. Il est actuellement 23h11.