dataGrid a CrystalReport Directo

[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.