Discussion :

[unformatdj]

Bonjour tout le monde,

Vu ma question ça montre que je suis débutant dans ce monde, et bin oui

Ainsi , je voudrais sélectionnés des données d'un DGV et affichés les lignes sélectionnés dans un autre DGV d'un autre form.

je rempli le premier DGV du form4, ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
con.Open()
        com.Connection = con
        com.CommandText = ("select * from fournisseur where nom_fournisseur='" & Me.Nom_fournisseurComboBox.SelectedValue & "'")
        dr = com.ExecuteReader
        While dr.Read
            Form45.DataGridView1.Text = dr.GetValue(1)
 
        End While
        dr.Close()
        con.Close()

Pour la selection des lignes et les affichés dans un autre DGV , je mis ceci :

Code :

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

1
2
3
  Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Me.DataGridView1.Rows(0).Selected = True
        Form5.DataGridView1.Datasource = Me.DataGridView1.Datasource

Mais ca m'affiche Tout les données que le 1er DGV, sans prendre en considération ma sélection , ce qui ne pas le cas souhaité;
je veux juste les données des lignes sélectionnés soient affichés sur le 2em DGV.

Alors qu'est qui cloche, et qu'est ce que je dois ajouter ou modifier pour affiché ma sélection sur le 2em DGV ?

Merci d'avance

[methylene]

Bonjour,

C'est normal que cela t'affiche tout, vu que le Datasource est le même :

Code :

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

        Form5.DataGridView1.Datasource = Me.DataGridView1.Datasource

Cependant, les données (lignes de ton DGV1) que tu souhaites sélectionner, c'est via la souris pendant l'exécution, ou ceux sont des lignes que tu définis au préalable et qui ne changent pas ?

Parce que à ce moment là, tu fais 2 requêtes, l'une qui rempit ton DGV1, et l'autre qui remplit ton DGV2.

Par contre si c'est sur sélection de la souris, il va falloir récuperer la collection des lignes sélectionées.

[unformatdj]

merci methylene

Par contre si c'est sur sélection de la souris, il va falloir récupérer la collection des lignes sélectionnées.

C'est effectivement comme ca, je voudrais sélectionnées les lignes avec la souris et la touche Ctrl ( s' il y'a plusieurs sélection )

Donc que dois-je faire ?

[mactwist69]

Et bien tu fais un bouton "Sélectionner",

Dans l'évènement Click de ce boutton, tu fais une boucle sur les lignes sélectionnées:

Code :

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

1
2
3
4
5
For each DgvR as Datagridviewrow in me.MonDatagridview.selectedRows
 
    Copy(DgvR)
 
Next

Ou copie, copie ta ligne dans l'autre DGV.

PS, il faut écrire la procédure copy. Pour la méthode... tout dépends de ce que tu veux faire, tu peux même y arriver tout seul je pense.

[methylene]

Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub Copy(ByVal DgvRow As DataGridViewRow, ByVal i As Integer)
 
        Datagridview2.Rows.Add()
        Dim j As Integer = 0
 
        For Each DGVCell As DataGridViewCell In DgvRow.Cells
 
            Datagridview2.Rows(i).Cells(j).Value = DGVCell.Value
            j = j + 1
 
        Next
 
 
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   Private Sub Btsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsel.MouseClick
 
        Dim ligne As Integer = 0
 
        For Each DgvR As DataGridViewRow In Me.Datagridview1.SelectedRows
 
            Copy(DgvR, ligne)
            ligne = ligne + 1
 
        Next
 
End Sub

[unformatdj]

merci les amis ,
methylene, il me genere une erreur de ce type :

Impossible d'ajouter par programme des lignes à la collection de lignes DataGridView lorsque le contrôle est lié aux données.

dans cette partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Public Sub Copy(ByVal DgvRow As DataGridViewRow, ByVal i As Integer)

        Form8.DataGridView2.Rows.Add()
        Dim j As Integer = 0

        For Each DGVCell As DataGridViewCell In DgvRow.Cells

            Form8.DataGridView2.Rows(i).Cells(j).Value = DGVCell.Value
            j = j + 1

        Next

[methylene]

Lol, ben peut-être que si tu enlève cette ligne là que tu as mis :

Code :

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

    Form5.DataGridView1.Datasource = Me.DataGridView1.Datasource

[unformatdj]

Bien sur que j'ai enlevé cette ligne ;

J'ai vu dans des forum qu'il faut ajouter ces 2 lignes

Code :

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

1
2
3
        Dim dr As DataRow = Form5.DataGridView2."NewRow"  // mais je ne trouve pas ce newrow dans les propriétés de DGV

        Form8.DataGridView2.Rows.Add(dr)

Et dans un autre forum , je vu :

La solution est en fait de ne pas ajouter la ligne dans de DataGridView mais dans ta BindingSource de cette façon :
BindingSource.AddNew()

Mais quand je fais Form8.FournisseuremployefrsBindingSource.AddNew()

mais j'ai l'erreur suivante encore :

Impossible d'ajouter par programme des lignes à la collection de lignes DataGridView lorsque le contrôle est lié aux données.

Alors je suis bloqué ,

[mactwist69]

Le NewRow concerne la duplication de datarow pour les datatables pas les datagridview.

Donc bien sur, ca ca ne marche pas:

Code :

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

Dim dr As DataRow = Form5.DataGridView2."NewRow"

Doublement faux car tu ce que tu ecris reviens a dire:

Code :

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

Datarow = DataGridViewRow

Ensuite si il te dis ca:

mpossible d'ajouter par programme des lignes à la collection de lignes DataGridView lorsque le contrôle est lié aux données.

C'est que que quelque part tu as mis:

Code :

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

DatagridView2.Datasource =

Fais une recherche dans ton code... Ctrl+F, sans oublier de rechercher dans le texte caché.

Sinon le code de départ devrait marcher

[unformatdj]

merci ,
mais vous aviez raison y'avai DGV2.datasource dans le Form8 ( parcque je les associés à la BD)
et donc je le supprimé cette ligne

mais j'ai une autre erreur maintenant :

L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection. Nom du paramètre : index

[methylene]

Je ne dirais rien lol, et encore je t'ai maché le travail :/

On va aller au plus simple, il n'y a pas de raison que ce soit l'index des lignes qui déconne, donc cela doit être l'index des cellules.

Conclusion, as-tu le même nombre de colonnes sur ta DGV1 et sur ta DGV2 ?

Je vais même poussé le vice plus loin, étant donné que le DGV1 est lié à un DataSource tu n'as donc pas créés de colonnes, mais vu que le DGV2 n'est pas lié à un datasource, il faut créer des colonnes et les ajouter à ton DGV2.

Je parierais que l'erreur viens de là.

Donc :

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
Dim Column1 As New DataGridViewTextBoxColumn
Dim Column2 As New DataGridViewTextBoxColumn
...
....
 
With Column1 
     .Name = "Column1" 'à titre d'exemple
     .Width = 50  'à titre d'exemple
     .HeaderText = "Tontitre1" 'le titre en haut de ta colonne
End With
 
With Column2
     .Name = "Column2" 'à titre d'exemple
     .Width = 80  'à titre d'exemple
     .HeaderText = "Tontitre2" 'le titre en haut de ta colonne
End With
 
....
.....
.
.
......
 
DataGridView2.Columns.Add(Column1, Column2, ...)

Et cela devrait fonctionné, en supposant que tu n'aies que des colonnes texte.