pasar datos de un datagridview a otro

[ocesitaro]

hola amigos tengo una aplicaion con 2 datagridview la idea es pasar las columnas
que seleccione en el datagridview1 esas mismas deben pasar al datagridview2

tengo este codigo

en el evento load
cargo
dim dr as datarow
dim dt as new datatable

--------------------------------
en el boton agregar.

Dim columna As String = dgvplanilla.Columns(dgvplanilla.CurrentCell.Column Index).Name
dt.Columns.Add(columna)
dt.NewRow()
For Each lrow As DataGridViewRow In dgvplanilla.Rows
dr = dt.NewRow
dr(columna) = lrow.Cells(columna).Value
dt.Rows.Add(dr)
Next

dgvconceptos.DataSource = dt
---------------------

el problema es que me agrega de esta manera

Código HTML:

personal     edad   
nom1
nom2
              12
              15
 

lo que se quiere es que salga al costado.

Agredece su respuesta.

[jhonjairo00]

Hola

Bueno primero que todo, si lo que quieres es que se vayan agregando las Columnas seleccionadas en dgvplanilla a dgvconceptos no es necesario que uses un datatable ni un datarow ya que ambos son datagridview (como dijiste) por lo que únicamente vas a tener que crear un objeto de tipo DataGridViewTextBoxColumn, asignarle el nombre y la cabecera de la columna seleccionada, validar que ésta no exista en dgvconceptos, recorrer dgvplanilla fila por fila, validar si el índice no es mayor al número de filas que tiene actualmente dgvconceptos, de ser así agregar una nueva fila, y recuperar el valor de la celda en la columna seleccionada y asignárselo a la celda en dgvconceptos...

más o menos así, supongo que es más gráfico con el código

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim _columna As New DataGridViewTextBoxColumn
        _columna.HeaderText = dgvplanilla.Columns(dgvplanilla.CurrentCell.ColumnIndex).HeaderText
        _columna.Name = dgvplanilla.Columns(dgvplanilla.CurrentCell.ColumnIndex).Name
        If dgvconceptos.Columns(_columna.Name) Is Nothing Then
            dgvconceptos.Columns.Add(_columna)
        End If
        For Each _row As DataGridViewRow In dgvplanilla.Rows
            If _row.Index > dgvconceptos.Rows.Count - 1 Then
                dgvconceptos.Rows.Add(1)
            End If
            dgvconceptos.Rows(_row.Index).Cells(_columna.Name).Value = _row.Cells(_columna.Name).Value
        Next
    End Sub
 

Espero te sirva...

Saludos