reporte crystal report cargado de dos datagridview utilizando dataset tipado vb.net

Question

Agradeceria cualquier ayuda

Como pudo realizar un solo reporte en crystaReport usando dos datagridview y un dataset tipado,  utilizo el siguiente codigo. Solo carga un solo datagrid

Dim dt As New DataTable

        With dt

            .Columns.Add("Movimientos")

            .Columns.Add("Fecha")

            .Columns.Add("Kg_Entrado")

            .Columns.Add("Movimiento")

            .Columns.Add("Fechas")

            .Columns.Add("KG_Salido")

        End With

 

        For Each dr As DataGridViewRow In Me.DataGridView1.Rows

            dt.Rows.Add(dr.Cells("Movimientos").Value,

            dr.Cells("Fecha").Value,

            dr.Cells("Kg_Entrado").Value,

            dt.Rows.Add(dr.Cells("Movimiento").Value,

            dr.Cells("Fechas").Value,

            dr.Cells("KG_Salido").Value))

        Next

      

        Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument

        rptDoc = New CrystalR

        rptDoc.SetDataSource(dt)

 

        frmImpresion3.CrystalReportViewer1.ReportSource = rptDoc

        frmImpresion3.ShowDialog()

        frmImpresion3.Dispose()

Aqui solo cargo un datagrid?

gracias

Answer 1

BUENOS DIAS AMIGO...

LOGRO RESOLVER EL PROBLEMA?????

YO TENGO EL MISMO PROBLEMA Y NO HE DADO CON LA SOLUCION....

Answer 2

Hola:
Comentarios (en MAYUSCULAS) acerca del codigo

Dim dt As New  DataTable
With dt
   .Columns.Add("Movimientos")
   .Columns.Add("Fecha")
   .Columns.Add("Kg_Entrado")
   .Columns.Add("Movimiento")
   .Columns.Add("Fechas")
   .Columns.Add("KG_Salido")
End With
'CREACION DE DATATBLE
For Each dr As DataGridViewRow In Me.DataGridView1.Rows
    dt.Rows.Add(dr.Cells("Movimientos").Value,
    dr.Cells("Fecha").Value,
    dr.Cells("Kg_Entrado").Value,
    dt.Rows.Add(dr.Cells("Movimiento").Value,
    dr.Cells("Fechas").Value,
    dr.Cells("KG_Salido").Value))
Next
'CARGA DEL DATATABLE CON LOS VALORES DE DATAGRID, SE PUEDE CONSEGUIR CON LA SIGUIENTE LINEA
Dim TU_DATATABLE As DataTable = CType(Me.DataGridView1.DataSource, DataTable)

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CrystalR
rptDoc.SetDataSource(dt)
'CARGA DEL DATATABLE EN EL REPORTDOCUMENT

Conclusion:
Estas cargando 1 datatable en el reportdocument, no estas cargando 2 datatables.

¿Puedes explicar que es lo que tienes (Estructuras de datos y consulta que efectuas) y que es lo que quieres conseguir (campos que van el el fichero RPT)?

Un saludo desde Bilbo
Carlos