dataGrid a CrystalReport Directo

[zeusandnereus]

Estimados,

Necesito de su ayuda, les cuento hace unas semanas que estoy con un problema en la aplicación que estoy realizando en visual 2010.
Tengo un datagrid que lleno sin problemas dando unos parámetros como fecha y cosas así. en el cual me muestra la información filtrada que necesito, pero ahora quiero imprimir ese datagrid.


ejemplo:
[URL="http://www.imagengratis.org/?v=problemalh6fl.jpg"]http://www.imagengratis.org/?v=problemalh6fl.jpg[/URL]

Se me ocurre algo como recorrer el datagrid y pasarselo al crystal para visualizarlos pero nose como realizar esta etapa Ojala me puedan echar una manito.

Saludos.

Muchas Gracias

[Aquaventus]

Hola zeusandnereus!
1º Bienvenido al Foro!.
2º Podrías guiarte de este artículo que es muy bueno DatagridView a CrystalReport. Espero te haya sido de utilidad, Saludos!.

[zeusandnereus]

estimado muchas gracias por responder,

pero no me quedo claro como realizar esto del Dataset Tipado.

Si me orientas un poquito mas te lo agradeceria

Saludos

[Aquaventus]

Te dejo este otro link para que te guies : Como crear un dataset tipado y un reporte con crystalreport

[zeusandnereus]

Muchas gracias por la ayuda.. pude resolver mi problema.

pongo como lo resolvi por si alguien se pudiera servir en algun momento.

1° Cree un dataSet(dataset.xsd) ,el cual se llama pagoReport - dentro de este dataSet cree el datatable que son los mismos campos de mi datagrid, en este caso se llama Report

2° Asocie el dataSet creado a mi Informe de crystal report , el cual se llama report1.

3° en el boton de imprimir en donde se encuentra el datagrid Agregue el siguiente codigo:

Código vb:

Dim MyDataSet As New pagosReport 'Conjunto de datos 
        Dim MyDataTable As New pagosReport.ReportDataTable 'dataTable del conjunto de datos 
        Dim mi_rptSocios As New report1 'Documento cristal reports 
        'Dim miReporte As New reportP 'Formulario visor 
        Dim filas As Integer = dgvReporte.Rows.Count - 1
        Dim i As Integer = 0
        For i = 0 To filas - 1
            'Paso los datos al dataset (los campos del grid)
            MyDataTable.Rows.Add(dgvReporte.Rows(i).Cells("FechaIngreso").Value,
    Me.dgvReporte.Rows(i).Cells("CodigoCaso").Value,
    Me.dgvReporte.Rows(i).Cells("RutCliente").Value,
    Me.dgvReporte.Rows(i).Cells("NombreCliente").Value,
    Me.dgvReporte.Rows(i).Cells("Honorarios").Value,
    Me.dgvReporte.Rows(i).Cells("Pagos").Value,
    Me.dgvReporte.Rows(i).Cells("Boleta").Value,
    Me.dgvReporte.Rows(i).Cells("Estado").Value,
    Me.dgvReporte.Rows(i).Cells("Sucursal").Value)
            Me.ProgressBar.Value = i
 
        Next (i)
        MyDataSet.Tables("Report").Merge(MyDataTable)
        mi_rptSocios.SetDataSource(MyDataSet)
        reportP.CrystalReportViewer1.ReportSource = mi_rptSocios
        reportP.Text = "Reporte"
        reportP.Show()
 

y con eso ya deberia funcionarles.


Muchas gracias al amigo Aquaventus el cual me oriento con sus link's

Si alguien necesita o tiene alguna pregunta no duden en escribirme.