Copiar columna datagrid al portapapeles

[knarfy]

Hola maestros. Tengo un problemilla y espero que me lo podais resolver.

Estoy haciendo un programa y muestro los datos de un recordset en un datagrid. Ahora lo que quiero es que al hacer click en la cabecera y seleccionar todas las filas de una columna y darle al botón derecho, lo copie al portapapeles para llevármelo a un txt. Tengo todo menos lo de copiar, es lo único que me falla, no copia nada. ¿Cómo podría hacerlo? Si no fuera posible copiarlo, como recorro los registros de una columna para llevármelo a un archivo de texto?
Me gustaría mejor la opción de copiar, pero si no se puede la otra me es últil.

Gracias y un saludo.

[knarfy]

¿Alguna idea de como copiar la columna?

[luciano]

Una forma:

Código:

Private Sub grdDataGrid_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

For i = 0 To grdDataGrid.ApproxCount - 1

  Datos = CStr(Datos & grdDataGrid.Columns(ColIndex).CellValue(grdDataGrid.GetBookmark(i)) & vbNewLine)
  DoEvents
Next
Clipboard.Clear
Clipboard.SetText Datos

End Sub

donde grdDataGrid es el nombre del data. Deberias verificar que el boton presionado es el derecho : vbrightbutton

..salu2





------------