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