Colonne indépendante dans un DATAGRID VIEW

**FrancoisHE** · 07/12/2020, 23h27

Bonjour,

Voila plusieurs jours que je cherche partout a résoudre mon "souci" et je me viens vers vous car je trouve pas comment faire !!!

Dans un DataGridView, j'ai créé une colonne indépendante, que j'ai appeler "Réalisé" qui est en column 0

Dans mon DataGridView, j'ai 1 colonne alimenté par ma base qui s'appelle, "type1" qui est en column 2

type1 peux avoir comme valeur CO ou rien( Null)

je souhaiterai que ma nouvelle colonne indépendante soit égale a OK si type1 = CO et NOK si type est Null.

Je precise que la valeur OK ou NOK dans ma nouvelle colonne indépendante, est juste la en information, elle n'a pas besoin d'être enregistrée dans la base.

auriez vous une idée SVP

MERCI

**FrancoisHE** · 08/12/2020, 01h29

Bonjour,

il suffit parfois de baisser les bras pour rebondir !!! (mouaiiii bof)

dans mon FORMS-LOAD j'ai ajouter ceci après la lecture des données de ma base qui rempli le DataGridView :

Code :

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

1
2
3
4
5
For Each row As System.Windows.Forms.DataGridViewRow In Table_1DataGridView.Rows
            If row.Cells("type1").Value = ("CO") Then
                row.Cells("réalisé").Value = "OK"
            End If
        Next

après je vais adapter avec un ELSE ...

**FrancoisHE** · 08/12/2020, 12h39

bonjour,

ce que j'ai fait fonctionne, sauf que quand je fait défiler mes données, les colonnes ne se mettent pas jours.

j'ai essayer de lancer mon if.... si je scroll, mais j'obtient une erreur car la colonne "réalisé" est Null !!!

avec mon if .... j'applique ma modification sur ce qu'il y a d'afficher dans le datagridview, est il possible de l'affecter a la totalité des colonnes meme celles qui ne sont pas encore affichées ?

merci

**MABROUKI** · 08/12/2020, 16h21

Bonjour

voici un exemple code qui ,je l'espere fera ton bonheur !!!
code behind .vb:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Public Class Form2
    Private table As DataTable = Nothing
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        table = GetTable()
 
 
        Me.DataGridView1.DataSource = table
        Dim nokColumn As New DataGridViewTextBoxColumn()
        nokColumn.Name = "Realise"
        nokColumn.HeaderText = "Realise"
        nokColumn.ValueType = GetType(String)
        Me.DataGridView1.Columns.Insert(0, nokColumn)
        InitializeNok()
    End Sub
    Private Function GetTable() As DataTable
        Dim table As New DataTable("Types")
        table.Columns.Add(New DataColumn("Type1", GetType(String)))
        table.Columns.Add(New DataColumn("Salaire", GetType(Decimal)))
        AddRowToTable(table, "CO", 2500.0)
        AddRowToTable(table, Nothing, 4200.0)
        AddRowToTable(table, Nothing, 3255.4)
        AddRowToTable(table, "CO", 1254.3)
        Return table
    End Function
 
    Private Sub AddRowToTable(ByVal dt As DataTable, ByVal itemType As String, ByVal itemSalaire As Decimal)
        Dim dr As DataRow = dt.NewRow()
        dr(0) = itemType
        dr(1) = itemSalaire
        dt.Rows.Add(dr)
    End Sub
    Private Sub InitializeNok()
        For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            Dim drv As DataGridViewRow = Me.DataGridView1.Rows(i)
            UpdatCellNok(drv)
        Next
 
    End Sub
 
 
    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim drv As DataGridViewRow = Me.DataGridView1.CurrentRow
        UpdatCellNok(drv)
    End Sub
    'la  sub  qui fait la maj de la cellule "Realise"
    Private Sub UpdatCellNok(ByVal drv As DataGridViewRow)
        Dim a As Object = drv.Cells("Type1").Value
        Dim aValue As String = Nothing
        Dim nokString As String = Nothing
        If (a IsNot Nothing) Then
            aValue = a.ToString
        End If
        If aValue = "CO" Then
            nokString = "OK"
        Else
            nokString = "NOK"
        End If
        drv.Cells("Realise").Value = nokString
    End Sub
End Class

bon code...

**Phil Rob** · 08/12/2020, 14h17

Bonjour François,

Peut-être que ce code te conviendra mieux :

Code :

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

1
2
3
4
5
6
7
8
 
        For R As Integer = 0 To Table_1DataGridView.Rows.Count - 1  ' peut-être -2 si ligne vide au bas du DGV, pour ne faire de test sur ligne vide
            If Table_1DataGridView.Item("type1", R).Value = "CO" Then
                Table_1DataGridView.Item("réalisé", R).Value = "OK"
            Else
                Table_1DataGridView.Item("réalisé", R).Value = "NOK"
            End If
        Next

...

**m4k-Hurrican** · 08/12/2020, 16h41

Bonjour,

Il vaudrait mieux utiliser l'évènement CellValueChanged et affecter la valeur correspondante à ce moment là.
Ainsi le chargement et la modification serait gérés en un seul endroit et de manière simple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub myDGV_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles myDGV.CellValueChanged
 
        ' Si pas dessin ligne entête
        If e.RowIndex >= 0 Then
 
            ' Selon colonne
            Select Case e.ColumnIndex
                Case myDGV.Columns("type1").DisplayIndex
                    If sender.CurrentCell.Value = "CO" Then
                        myDGV.Rows(e.RowIndex).Cells("réalisé") = "OK"
                    Else
                        myDGV.Rows(e.RowIndex).Cells("réalisé") = "NOK"
                    End If
            End Select
 
        End If
 
    End Sub

**FrancoisHE** · 08/12/2020, 22h44

ce que vous me proposez fonctionne !!!! MAIS, çà aurai été trop beau :

(extrait du code Phil Rob )

quand a l’exécution de la ligne. :

Code :

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

If Table_1DataGridView.Item("type1", R).Value = "CO" Then

Si le "Value" de type1 (("type1", R).Value) est {} (rien, empty, Null), ce qui veut dire que la valeur du champs de cet enregistrement est vide est bien Form1_Load se termine directement comme si ca faisait un end sub, sans aucun message d'erreur .

Je précise çà ne fait pas un END IF car si il y a du code entre le END IF et le END SUB, il ne s’exécute pas !!

Dans le paramètre Null Value de la colonne du DataGridView, j'ai mis une valeur A ou 0 (zéro), mais ça ne change pas.

c'est étrange !!!

merci d'avance

**Phil Rob** · 08/12/2020, 23h16

Faudrait exécuter cette partie du code en pas à pas...
Ne peux tu m'envoyer du code à tester ?
Une erreur sur une cellule de DGV ne peut pas fermer un Form ... non ?
Dans mon code If... , je peux éviter le problème de la cellule vide, mais il doit y avoir un autre problème.
Bonne nuit...

**FrancoisHE** · 09/12/2020, 00h37

voici en PJ un projet, qui utilise une base ACCESS.

Nom : code-truc.png
Affichages : 168
Taille : 75,8 Ko

dans le DGV, si la colonne NOM = truc, alors la colonne compare = OK

regardez ci qu'il se passe :

Nom : DGV-truc.png
Affichages : 161
Taille : 51,5 Ko

si on rempli les valeurs vides des enregistrement (avec ACCESS), tout fonctionne

Nom : DGV-truc2.png
Affichages : 154
Taille : 46,3 Ko

Ou est-ce que je me trompe ?

Merci

**Phil Rob** · 09/12/2020, 07h33

Bonjour,

Une erreur est de conduire la boucle For jusque ...Rows.Count (si tu veux revoir mon code d'hier

). Dans le cas de ce DGV avec une ligne vide en bas de liste, il faut arrêter la boucle à Count - 2.

Par ailleurs, c'est vrai que la comparaison dans le If pose problème lorsque "NOM" est vide. A toi de voir ce que tu veux faire dans ce cas. Dans le code suivant, pour faire facile, quand cette cellule est vide, j'y place "NOM ???". Et pour ne pas bloquer l'exécution sur cette erreur, et toujours pour faire facile

, j'ai placé les If dans un bloc Try ... Catch ... End Try (si j'ai un peu de temps, je regarderai s'il n'y a pas méthode plus élégante, je promets pas).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'EssaiDGVDataSet.Table1'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.Table1TableAdapter.Fill(Me.EssaiDGVDataSet.Table1)
        Dim independ As String = "0"
 
        For R As Integer = 0 To MyDGV.Rows.Count - 2
            'If MyDGV.Item("NOM", R).Value = independ Then
            '    MyDGV.Item("CO", R).Value = "e"
            'End If
 
            'If MyDGV.Item("NOM", R).Value = "truc" Then
            'MyDGV.Item("compare", R).Value = "OK"
            'End If
            Try
                If MyDGV.Item("NOM", R).Value = independ Then
                    MyDGV.Item("CO", R).Value = "e"
                ElseIf MyDGV.Item("NOM", R).Value = "truc" Then
                    MyDGV.Item("compare", R).Value = "OK"
                End If
            Catch
                MyDGV.Item("compare", R).Value = "NOM ???"
            End Try
        Next
    End Sub

J'espère que ceci te dépannera...

... suite ...

Je ne pouvais pas attendre après avoir utilisé un Try par pure paresse

...

Voici un code sans Try :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        For R As Integer = 0 To MyDGV.Rows.Count - 2
            If Not MyDGV.Item("NOM", R).Value.ToString = String.Empty Then
                If MyDGV.Item("NOM", R).Value = independ Then
                    MyDGV.Item("CO", R).Value = "e"     ' Ici NOM = independ
                ElseIf MyDGV.Item("NOM", R).Value = "truc" Then
                    MyDGV.Item("compare", R).Value = "OK"     ' Ici NOM = Truc
                Else
                    ' Ici NOM = autre chose ???
                End If
            Else
                MyDGV.Item("compare", R).Value = "NOM ???"
            End If
        Next

**m4k-Hurrican** · 09/12/2020, 08h55

Je ne vois toujours pas l'intérêt de passer en revue tous les lignes du contrôle DatagridView à chaque fois.
Il est bien plus simple et efficace de le gérer dans l'évènement CellValueChanged

**FrancoisHE** · 09/12/2020, 12h13

Envoyé par m4k-Hurrican

Je ne vois toujours pas l'intérêt de passer en revue tous les lignes du contrôle DatagridView à chaque fois.
Il est bien plus simple et efficace de le gérer dans l'évènement CellValueChanged

J'ai testé avec le CELLVALUECHANGED, mais la colonne ne se met pas a jour au moment de l'ouverture du DGV. seulement lorsque l'on change une valeurs. ce n'est pas ce que je cherche.

MErci

**m4k-Hurrican** · 09/12/2020, 16h15

Envoyé par FrancoisHE

J'ai testé avec le CELLVALUECHANGED, mais la colonne ne se met pas a jour au moment de l'ouverture du DGV. seulement lorsque l'on change une valeurs. ce n'est pas ce que je cherche.

MErci

Pourtant l'évènement doit se déclencher à chaque modification du contenu de la cellule du contrôle DataGridView, donc au chargement initial également.
J'aimerais bien voir le code complet si c'est possible.

**FrancoisHE** · 09/12/2020, 23h20

Bonsoir,

J'ai mis dans un précédent message un projet en PJ.

J'ai refait un essai, et lors de l'ouverture du DGV et son remplissage, la procédure CellValueChanged n'est pas appelée.

Pour moi je trouve cela normal, certes la valeur de la cellule change, elle passe de "rien" à une valeur, mais au moment du premier remplissage de la cellule, je pense que ce n'est pas une modification de cellule mais une création.

a+

**Phil Rob** · 09/12/2020, 10h44

@m4k-Hurrican

Bonjour,

J'ai vu ta proposition d'ultiliser l'événement CellValueChanged. A première vue pourquoi pas ?
Finalement, je n'ai pas utilisé cette événement.

FrancoisHE nous demande de l'aider par rapport un problème qui se présente dans l'évément Load. C'est donc dans cet événement que je m'efforce de trouver une solution. De plus, "...passer en revue tous les lignes du contrôle DatagridView ..." n'est fait qu'une fois lors du chargement initial.

Ensuite, après avoir vu ta proposition, je pense à la lui proposer en 2ème solution. Je ne l'ai pas fait car elle risque d'engendrer d'autres difficultés, notamment parce que l'événement CellValueChanged est activé pour chaque cellule pendant le chargement initial.

De plus, je suis pour l'événement CellValueChanged mais utilisé seulement quand on ne peut faire autrement. Bien entendu, il s'agit d'une position très personnelle ...

Bonne journée ...

**m4k-Hurrican** · 09/12/2020, 11h35

J'ai bien compris que François a un problème lors du chargement. Et effectivement on peut alors passer une seule fois tout en revue. Ta proposition va effectivement dans ce sens, et je ne critique pas ton intervention.

C'est juste que tant qu'à faire, j'essaie de donner de bonnes habitudes aux non pro, et ici, il faudrait que François prévoie qu'on pourrait avoir une modification de la valeur de la colonne "type1".
Prévoir l'avenir, les futures améliorations, et faciliter la maintenance c'est aussi çà programmer.

**Phil Rob** · 09/12/2020, 12h05

De mon message, ne vois pas non plus de critique personnelle.
Au contraire, je suis personnellement très favorable aux approches fort différentes. Le demandeur d'aide reçoit ainsi une panoplie d'avis dans laquelle il peut "faire son marché". C'est comme ça qu'on apporte de la richesse dans les discussions.
Ici, François possède une proposition de Mabrouki, ta proposition et ma solution. Il peut choir l'une ou l'autre, ou même produire une solution mixte sur base des autres.
A mon avis, on ne peut mieux faire ...

**FrancoisHE** · 09/12/2020, 12h19

Envoyé par Phil Rob

De mon message, ne vois pas non plus de critique personnelle.
Au contraire, je suis personnellement très favorable aux approches fort différentes. Le demandeur d'aide reçoit ainsi une panoplie d'avis dans laquelle il peut "faire son marché". C'est comme ça qu'on apporte de la richesse dans les discussions.
Ici, François possède une proposition de Mabrouki, ta proposition et ma solution. Il peut choir l'une ou l'autre, ou même produire une solution mixte sur base des autres.
A mon avis, on ne peut mieux faire ...

Oui en effet, c'est d'ailleurs la force d'un forum, c'est d'avoir diffèrent point de vue, car souvent, on reste bloqué comme dans un tunnel, on n'en voit pas le bout, alors que bien souvent c'est parce que l'on est mal parti.

Dan se cas précis, j'ai testé toutes les solutions, et j'avance doucement.

Concernant le COUNT-2, je ne l'ai pas mis (oubli), mais comme mon problème arrive des le début, je vais voir ca plus tard.

Merci a vous

**Phil Rob** · 09/12/2020, 12h17

J'espère que ma solution de 7h54 fonctionne !

Dis-moi quoi ...

**Phil Rob** · 09/12/2020, 13h01

Concernant le COUNT-2, je ne l'ai pas mis (oubli), mais comme mon problème arrive des le début, je vais voir ca plus tard.

Attention, ma solution de ce matin se situe dans le LOAD et le COUNT-2 n'est pas anodin.
Je te renvoie PJ de tests avec la solution : testDGV_PHR.zip

A bientôt ...

Colonne indépendante dans un DATAGRID VIEW

VB.NET

Vue hybride

Discussions similaires

Partager

Partager