Copiar y pegar entre Datagridview

[JavierColimaMexico]

Hola a todos de nuevo, me han dado la respuesta a mi duda y se las comprato para quien en algún momento tenga este problema:

Se usa el control C1TrueDBGrid; en mi caso el primero se llama C1TrueDBGrid1 y el segundo dgvirtual.

Se declaran las variables tipo dataTable necesarias:

Dim ds As New DataSet
Dim dt As DataTable
Dim dt2 As DataTable
Dim dt3 As DataTable

En el evento Load del form se carga en el dataTable la consulta con los datos que necesitamos y definimos las funciones

del C1TrueDBGrid:

Private Sub Comodatos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

dt = (conexión, consulta)
Me.C1TrueDBGrid1.DataSource = dt
C1TrueDBGrid1.AllowAddNew = False
C1TrueDBGrid1.AllowDelete = False
C1TrueDBGrid1.AllowUpdate = False
dgvirtual.AllowAddNew = False
dgvirtual.AllowDelete = False
dgvirtual.AllowUpdate = False
dt2 = dt.Copy
dt2.Clear()
dt3 = dt.Copy()
Me.dgvir.DataSource = dt2
Me.Text = "Asignaci¢n Bodega " + strBodegaActual
cmdguardar.Visible = True
llenacombo()
End Sub

Y en elevento Click del control realizamos el paso de los datos

Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick

If C1TrueDBGrid1.RowCount > 0 Then
Dim rw As DataRow = dt2.NewRow
For Each columna As C1.Win.C1TrueDBGrid.C1DataColumn In C1TrueDBGrid1.Columns
rw(columna.DataField) = C1TrueDBGrid1.Item(C1TrueDBGrid1.Row, columna.DataField)
Next
dt2.Rows.Add(rw)
Me.dgvirtual.DataSource = dt2
C1TrueDBGrid1.Delete(C1TrueDBGrid1.Row)
End If
End Sub

Espero le sea útil al igual que lo fue para mi.