Llenar un dataset (xsd) con un datatable para verlo en crystal reports

[JosueMariaca]

Hola a todos .. aqui otra forma que me funciona bien. este codigo ademas de generar el archivo .rpt genera un pdf, lo guarda y lo muestra en pantalla.

Dim Ds As New DataSetVenta()
For n As Integer = 0 To Dt.Rows.Count - 1
Ds.Tables(0).ImportRow(Dt.Rows(n))
Next



ReporteVenta = New ReportDocument
ReporteVenta.Load(Server.MapPath("Reportes_Listado Ventas.rpt"))
ReporteVenta.SetDataSource(Ds)

Dim crExportOptions As CrystalDecisions.Shared.ExportOptions
Dim crDiskFileDestinationOptions As CrystalDecisions.Shared.DiskFileDestinationOptions
crDiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = MapPath("Reportes_ListadoVentas.pdf")
crExportOptions = ReporteVenta.ExportOptions

With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
End With

ReporteVenta.Export()
Response.ClearContent()
Response.ClearHeaders()

Response.Write("<script language=javascript>window.open('Reportes_ListadoV entas.pdf', 'ReporteTienda', 'fullscreen=no,Scrollbars=yes,Resizable=yes,tollba r=yes,Status=yes,Titlebar=yes')</script>")

ReporteVenta.Close()
ReporteVenta.Dispose()



Saludos !!!