Discussion :

[jeremyvb11]

Re bonjour,


Après beaucoup de recherche sur le internet (notamment sur des forums américains) j'essay en vain de copier coller une ligne d'un Datagridview 2 dans un autre datagridview 1 par l'évènement du DoubleClick.

Les seuls bout d'exemples que j'ai trouvé mais que je n'ai pas réussi à appliqué sont sur cette page :

http://www.xtremevbtalk.com/showthread.php?t=188245

A priori cela serai possible par une fonction "Clone"

Code :

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

1
2
3
4
5
6
7
8
9
 
'This is where I Add the DataTable to the DataSet
objDataSet1.Tables.Add(objDataTable1)
 
'This is where I set the Datasource of the Datagrid to be populated
dgCarList1.DataSource = objDataSet1.Tables(0) 
 
'This is where I copy a row from one datagrid's datasource to the new datasource
objDataTable1.ImportRow(objDataTable.Rows(intSelectedRow))

"Nevermind I finally solved it. Here's what I did:

objDataTable1 = objDataTable.Clone

That got me the columns I needed for the new Table. After that, the importrow did it's thing and the new row showed up in the new datagrid!

Now I have a lot of formatting to take care of, but at least the data is there!

MKoslof, thanks for the time attention you gave to this thread, I appreciate that."


Je précise que mes 2 DGV sont bindés ducoup je me demande si cela est possible ou non ??

Avez-vous déjà réussi à faire cette manip ??

[dkmix]

Jeremy,

Un bout de code qui peut aider :

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
Private Sub Form1_Load(sender As Object, e As EventArgs)
 
	For Each cOrigine As DataGridViewColumn In dataGridViewOrigine.Columns
		Dim cDestination As DataGridViewColumn = DirectCast(cOrigine .Clone(), DataGridViewColumn)
 
		dataGridViewDestination.Columns.Add(cDestination )
	Next
End Sub
 
 
Private Sub dataGridViewOrigine_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs)
	Dim rDestination As DataGridViewRow = DirectCast(dataGridViewDestination.Rows(0).Clone(), DataGridViewRow)
	Dim i As Integer = 0
	For Each cell As DataGridViewCell In dataGridViewOrigine.Rows(e.RowIndex).Cells
		rDestination.Cells(i).Value = cell.Value
		i += 1
	Next
	dataGridViewDestination.Rows.Add(rDestination )
	dataGridViewDestination.Refresh()
End Sub

[jeremyvb11]

Merci pour ta proposition

Dans ton exemple "DataGridViewColumn" serai mon Datagridview1 et "dataGridViewOrigine" serai mon Datagridview2 ??

[dkmix]

Non,
DataGridViewColumn est DataGridViewColumn
dataGridViewOrigine est dataGridView1
dataGridViewDestination est dataGridView2

[jeremyvb11]

J'ai testé sur la base de ton exemple mais rien ne se passe :

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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For Each cOrigine As DataGridViewColumn In DataGridView2.Columns
            Dim cDestination As DataGridViewColumn = DirectCast(cOrigine.Clone(), DataGridViewColumn)
 
            DataGridView1.Columns.Add(cDestination)
        Next
 
    End Sub
 
 
Private Sub DataGridView2_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentDoubleClick
 
        Dim rDestination As DataGridViewRow = DirectCast(DataGridView1.Rows(0).Clone(), DataGridViewRow)
        Dim i As Integer = 0
        For Each cell As DataGridViewCell In DataGridView2.Rows(e.RowIndex).Cells
            rDestination.Cells(i).Value = cell.Value
            i += 1
        Next
        DataGridView1.Rows.Add(rDestination)
        DataGridView1.Refresh()
 
 
 
    End Sub

Mon DGV1 est ma destination et mon DGV2 et ma bibliothèque ou je souhaiterai piocher mes lignes à copier.

[Rainui]

Bonsoir,

Dans :

Code :

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

1
2
 
Dim rDestination As DataGridViewRow = DirectCast(DataGridView1.Rows(0).Clone(), DataGridViewRow)

tu doit faire référence à la ligne ou a eu lieu le click

Soit :

Code :

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

1
2
 
Dim rDestination As DataGridViewRow = DirectCast(DataGridView2.Rows(e.RowIndex).Clone(), DataGridViewRow)