la conversion de la chaine "" en type boolean n'est pas valide

Version imprimable

Bonjour,
je veux faire un calcule dans une datagridview voici le code

Code:

1
2
3
4
5
6
7
8
9
Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                    If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                        total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                        Me.TXT_HT.Text = Math.Round(total, 2)
                    End If
                End If
            Next

et voici l'erreur

Citation:

la conversation de la chaine "" en type boolean n'est pas valide

Merci d'avance

04/04/2011, 17h52
houbi2b

salut,

Le problème c'est que tu cast une chaine de caractère en booléen. A quoi te sert il ce cast?
(sachant que tu teste deja avant avec IsdbNull si le champ est null ou pas)
05/04/2011, 11h46
najoua01

j'ai déja fait le test

Code:

Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value)

Salutations
05/04/2011, 11h58
mactwist69

Ta case ne contient en effet pas "DBnull", mais en revanche il contient une chaîne vide.... ce qui ne va pas.

Cette case est censé contenir quoi ?

je vous expliquer
j'ai une datagridviex contient des case en checkbox et je veux faire le calcule des lignes qui sont sélectionner et qui sont pas sélectionner il faut pas les calculer et voici mon code

Code:

1
2
3
4
5
6
7
8
9
 Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                    If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                        total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                        Me.TXT_HT.Text = Math.Round(total, 2)
                    End If
                End If
            Next

merci d'avance

05/04/2011, 13h13
houbi2b
le problème c'est que le cast que tu fais n'est pas possible.
Code:

1 2 CBool(Me.DataGridView1.Rows(i).Cells("liv").Value)
Pourquoi veux tu faire ce cast au juste?
05/04/2011, 13h19
najoua01

ça veux dire si la ligne est coché il faut ajouter au calcule si nn c'est pas la peine

Utilise plutot un For Each à la place du for, et un SelectedRows à la place de Rows.

Ta conversion de la valeur en null ne donne actuellement pas si elle est selectionnée ou non.
Il y a des attributs SelectedCells, SelectedColumns et SelectedRows dans le DatagridView pour ça.
Code:

1 2 3 4 5 6 7 8 For each row as datagridviewrow in Me.DataGridView1.SelectedRows If Not IsDBNull(row.Cells("liv").Value) Then total = total + Val(row.Cells("DET_DEV_MONT").Value) Me.TXT_HT.Text = Math.Round(total, 2) End If Next
Tu vas parcourir seulement les lignes sélectionnées, celles dont tu as besoin donc.

Cependant sur ton datagridview dans SelectionMode, choisis CompleteRow afin que lorsque l'on clique sur une cellule ça soit toute la ligne qui soit selectionnée.

merci asmduty
pour l'instant l'erreur ca fiche pas mais le code fait pas le calcule

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                For Each row As DataGridViewRow In Me.DataGridView1.SelectedRows
                    If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                        If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                            total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                            Me.TXT_HT.Text = Math.Round(total, 2)
                        End If
                    End If
                Next
            Next

merci

05/04/2011, 15h19
asmduty

Ton code est à remplacer par le mien et en théorie ça doit fonctionner.
Garde juste ton :

Code:

Dim total As Double = 0

Si ça ne fonctionne pas, il faut mettre un point d'arret sur le for each, et poser des espions.
05/04/2011, 15h36
najoua01

re bonjou,
le code calcule tous les lignes qui sont cochés ou pas je sais pas qu'est ce que je doit faire,
merci pour votre aide
salutations

Quand on veut programmer il faut quand même y mettre du sien et/ou avoir des bases et/ou lire correctement ce que l'on nous explique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim total As Double = 0
 
'Pour chaque ligne sélectionnée dans le Datagridview1
For each row as datagridviewrow in Me.DataGridView1.SelectedRows
 
'Si "liv" n'est pas null
If Not IsDBNull(row.Cells("liv").Value) Then
 
'Tes calculs
total = total + Val(row.Cells("DET_DEV_MONT").Value)
Me.TXT_HT.Text = Math.Round(total, 2)
 
 
End If
Next

06/04/2011, 09h08
chrismonoye

bonjour,

si j'ai bien compris, il ne s'agit pas de faire la somme des lignes sélectionnées, mais des lignes cochées dans leur colonne "liv".

Ces lignes ne sont donc pas nécessairement sélectionnées et à fortiori d'autant moins si le calcul est commandé depuis un bouton par exemple.

Citation:

MSDN : la classe DBNull fait la différence entre une variante VT_NULL, qui indique une valeur inexistante, et une variante VT_EMPTY, qui indique une valeur non spécifiée.

Il faudrait essayer :

Code:

If Not DBNull.Value.Equals(Me.DataGridView1.Rows(i).Cells("liv").Value) Then

....................................

Code:

If Not Me.DataGridView1.Rows(i).Cells("liv").Value Is String.Empty Then

séparément ou OrElse.
06/04/2011, 09h20
asmduty

Citation:

j'ai une datagridviex contient des case en checkbox et je veux faire le calcule des lignes qui sont sélectionner et qui sont pas sélectionner il faut pas les calculer et voici mon code

En effet, j'avais plus retenu le sélectionné que le checkbox =\

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

Citation:

Envoyé par asmduty

En effet, j'avais plus retenu le sélectionné que le checkbox =\

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

Citation:

Envoyé par asmduty

Quand on veut programmer il faut quand même y mettre du sien et/ou avoir des bases et/ou lire correctement ce que l'on nous explique

Tu y vas un peu fort je trouve. un peu gonflé de parler d'y mettre du sien alors que tu poses une question novice sur un poste qui n'est même pas le tien.

De plus tu as dis d'utiliser SelectedRows... ce qui est totalement faux et rends le code incorrect...
Il ne va prendre en compte que les lignes surligné en bleu !! et non la totalité des lignes du datagridview.

Najoua01, réutilise Me.DataGridView1.Rows !

Code:

CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True

était une très bonne idée.

Ton problème viens du fait que si un checkbox n'est pas coché, au lieu de te renvoiyé False, il renvois une chaine vide. Donc tu ne paux pas utilisé CBool.

Ensuite pour savoir ce que "row.Cells("liv").Value" te renvois, fait ta boucle et montre ce qu'il contient:
Code:

1 2 3 4 5 6 7 For each row as datagridviewrow in Me.DataGridView1.Rows If Not IsDBNull(row.Cells("liv").Value) Then Msgbox(row.Cells("liv").Value) End If Next
Test ce code, avec des lignes cochés et des lignes pas cochés, alors tu verras ce que te revois "row.Cells("liv").Value".

Par exemple "True" ou "1" ou autre chose.
Si c'est "1", alors tu pourras modifier ton code:
Code:

1 2 3 4 5 6 7 8 9 10 For each row as datagridviewrow in Me.DataGridView1.Rows If Not IsDBNull(row.Cells("liv").Value) Then If (row.Cells("liv").Value = 1) Then total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value) Me.TXT_HT.Text = Math.Round(total, 2) End If End If Next
Par contre si "row.Cells("liv").Value" te renvois la chaine de caractères "true", alors remplace:

Code:

If (row.Cells("liv").Value = 1) Then

Par:

Code:

If String.Compare(row.Cells("liv").Value, "True) Then

Tu vois le truc ?

06/04/2011, 15h02
najoua01

merci bcp chrismonoye
c'est ça ce que je veux
merci a tous :ccool:

Citation:

Envoyé par asmduty

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

Bonsoir,

On lit souvent que OrElse doit être utilisé à la place de Or.
Voici deux cas (plutôt alambiqués) où l'emploi de l'un est préférable à l'autre et vice-versa :

1er cas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim n1 As Integer = 0 Dim n2 As Integer = 5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If n1 = 0 OrElse maFonction(10) > 9 Then Debug.Print(CStr(n2)) End If End Sub Function maFonction(ByVal valeur As Integer) As Integer valeur += 10 maFonction = valeur n2 += 10 End Function
puisque une des deux expressions,au moins, est satisfaite, on peut penser que par maFonction, n2 vaudra 5+10=15.
et bien non, la 1ère expression étant vraie, l'application a pris le raccourci.
donc attention aux expressions qui contiennent des appels de procédure.
Ici Or est donc approprié, il évaluera les deux expressions.

Second cas :
Code:

1 2 3 4 5 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If n1 = 0 Or 10 \ n1 = 5 Then Debug.Print("ok") End If End Sub
Ici, Or provoque une erreur de tentative de division par 0, OrElse, tout en limitant le code, règle le problème.
Bon, je réponds tardivement,de surcroit la discussion étant résolue et je suis hors sujet.

11/04/2011, 08h55
asmduty

Merci bien, il me semblait que le Or agissait tout seul de cette manière, mais avec ton exemple je comprends mieux pourquoi il ne le fait pas, sinon on serait embêté avec les appels de fonction.