Discussion :

[Massigne]

Salut le forum j'ai un DataGridview dont certaines colonnes sont peuplés à partir des données provenant de la table d'une base de données
j'ai aussi des colonnes créé manuellement.
je voudrais qu'a chaque ligne créé, que les données des colonnes 'Nom','NOM_CLIENT' se répètes sur chaque ligne,
j'ai pu le faire avec la colonne 'IdAutrecredit' que j'ai créé manuellement et que j'appel la dernier valeur

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
 Try
            CreateUnboundTexboxnColumn()
            For i As Integer = 0 To dgvAjoutdepenses.Rows.Count - 1
 
                Call Connecter()
 
                cmd.Connection = con
                cmd.CommandText = "SELECT IdAutrecredit FROM Autrecrditparstation"
                de = cmd.ExecuteReader
                While de.Read
                    a = de.Item("IdAutrecredit")
                End While
                de.Close()
                txtNumero.Text = a + 1
                dgvAjoutdepenses.Rows(i).Cells("IdAutrecredit").Value = txtNumero.Text + i
 
 
            Next
        Catch ex As Exception
        End Try

quelqu'un aurait une idée?

[Phil Rob]

Bonjour,

Recopier l'info d'une ligne sur la nouvelle ligne ajoutée, c'est cela est fait à chaque ajout, cela revient à copier la valeur de l'avant dernière ligne sur la dernière.

C'est pourquoi je propose ceci :

Code :

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

1
2
3
4
5
 
' .Rows.Count-1 désigne la dernière ligne, celle qui vient d'être ajoutée, et .Rows.Count-2 désigne l'avant-dernière ligne.
' Attention, sur la création de la 1ère ligne, le code suivant donnera une erreur. Il ne peut fonctionner qu'à partir de l'ajout de la 2ème ligne.
' C'est pourquoi il est prudent de placer ce code dans un Try.
 dgvAjoutdepenses.Rows(dgvAjoutdepenses.Rows.Count-1).Cells("NOM_CLIENT").Value = dgvAjoutdepenses.Rows(dgvAjoutdepenses.Rows.Count-2).Cells("NOM_CLIENT").Value

J'espère que cela t'aidera

[Massigne]

Salut Phil Rob
je vais essayé mais en attendant j'ai écrit ce ci et sa marche

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
Try
            For j As Integer = 0 To dgvAjoutdepenses.Rows.Count - 1
                If dgvAjoutdepenses.Rows(j).Cells("Libelle").Value.ToString <> "" And cmbNom.Text <> "" Then
                    Call Connecter()
 
                    cmd.Connection = con
                    cmd.CommandText = "SELECT CONCAT(E.EM_Nom,' ',E.EM_Prenom) AS Nom,C.[NOM_CLIENT]
,A.[EM_ID] as EM_ID,A.[IDCLIENT] as IDCLIENT
FROM [dbo].[AFFECTATIONEMPLOYER] A
INNER JOIN Employees E ON E.[EM_ID]=A.[EM_ID]
INNER JOIN CLIENTS C ON C.[IDCLIENT]=A.[IDCLIENT]
where CONCAT(E.EM_Nom,' ',E.EM_Prenom)='" & cmbNom.Text & "'"
                    dr = cmd.ExecuteReader
                    While dr.Read
                        s = dr.Item("Nom")
                        o = dr.Item("NOM_CLIENT")
                        p = dr.Item("EM_ID")
                        q = dr.Item("IDCLIENT")
                    End While
                    dr.Close()
                    txtTexte.Text = s
                    dgvAjoutdepenses.Rows(j).Cells("Nom").Value = s
                    dgvAjoutdepenses.Rows(j).Cells("NOM_CLIENT").Value = o
                    dgvAjoutdepenses.Rows(j).Cells("EM_ID").Value = p
                    dgvAjoutdepenses.Rows(j).Cells("IDCLIENT").Value = q
                End If
            Next
        Catch ex As Exception
        End Try

[Phil Rob]

L'important est que le problème soit résolu.

Très bonne journée,

[clementmarcotte]

Bonjour,

Je viens tout juste de faire l'expérience de comparer l'alimentation d'un DataGridView directement de la source et de l'alimenter en passant par une DataTable. Cela m'a rappelé l'avantage de passer par une DataTable, ou encore mieux, un DataView.