Agregar Columnas a GridView en Tiempo de Ejecución y Enlazarlas a Datos

///


'Declaracion del DataSet
Dim ds As New DataSet
 
'Agregamos la tabla a la que le agregaremos columnas
ds.Tables.Add("Conceptos")

'Llenamos el checkList con una catalogo previamente consultado
With lstDonadores
 .DataSource = ds.Tables("donadores")
 .DisplayMember = "Nombre"
 .ValueMember = "IdDonador"
End With
  
'Evento que se desencadena al hacer click en un boton o donde requieran agregar los campos
'de los elementos del cheklist chequeados
For Each registro As Integer In lstDonadores.CheckedIndices
 
 'Agregamos las columnas
 ds.Tables("Conceptos").Columns.Add("reg" & CType(lstDonadores.Items.Item(registro), DataRowView)("idDonador"), GetType(Double))
 ds.Tables("Conceptos").Columns("reg" & CType(lstDonadores.Items.Item(registro), DataRowView)("idDonador")).Caption = "Aporte de " & CType(lstDonadores.Items.Item(registro), DataRowView)("nombre")
 
 'Creamos los GridColums y los enlazamos a datos
 Dim columna As New DevExpress.XtraGrid.Columns.GridColumn()
 columna.Name = "reg" & CType(lstDonadores.Items.Item(registro), DataRowView)("idDonador") 
 columna.FieldName = "reg" & CType(lstDonadores.Items.Item(registro), DataRowView)("idDonador") 

 'Cambiamos la apariencia
 columna.AppearanceCell.ForeColor = Drawing.Color.DarkRed

 'Asignamos propiedades
 columna.Visible = True
 columna.Caption = "Aporte de " & CType(lstDonadores.Items.Item(registro), DataRowView)("nombre")

 'Agregamos la columna al GridView no al GridControl
 GridView2.Columns.Add(columna)

 'Llenamos los campos con valores default
 For Each columnasAgregadas As DataRow In ds.Tables("Conceptos").Rows
  columnasAgregadas(columna.Name) = "0.00"
 Next
 
 'Refrescamos los Datos del GridControl y por tanto los veremos la informacion actualizada de
 'sus GridViews
 dtgActividades.RefreshDataSource()
Next

ShowPreview de XtraReport en ultimas versiones de DevExpress

Para los que tuvieron problemas al visualizar un reporte con las propiedades ShowPreview , la cual ya no aparece directamente en el objeto XtraReport1 de las ultimas versiones del DevExpress.

Aca les traigo un codigo 

Dim reporte As New XtraReport1
reporte.PaperKind = Printing.PaperKind.A4

Using vprevia As New DevExpress.XtraReports.UI.ReportPrintTool(reporte)
    vprevia.ShowPreviewDialog()
End Using



espero les sirva...

Saludos..

Raciel Moreno