Discussion :

[najoua01]

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

Code :

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

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

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

Merci d'avance

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

[najoua01]

j'ai déja fait le test

Code :

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

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

Salutations

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

[najoua01]

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 :

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

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

[houbi2b]

le problème c'est que le cast que tu fais n'est pas possible.

Code :

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

1
2
 
CBool(Me.DataGridView1.Rows(i).Cells("liv").Value)

Pourquoi veux tu faire ce cast au juste?