Visual Basic.NET - Pasar datos de un datagridview a Cristal Reports

Buenas noches:

Quisiera saber como puedo pasar, en vez de una sentencia sql, el contenido
de un datagridview a un CrystalReport

Gracias

Hola,

Lo que puede hacer es: con el DataSet que llenas el DataGrid, llenar el Reporte.

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=192&texto=Visual+Basic.NET&n1=529360&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Saludos.

Lo que me dices no me sirve.

Lo que hago yo es desde el formulario Buqueda llamo a ResultadoBusqueda que es donde tengo el DataGridView, los datos de dicho DataGridView, los paso desde el formulario Busqueda.

Al final el listado lo llamo desde ResultadoBusqueda con el contenido del DataGridView

Hola

Mira, supongo tu DataGrid lo llenas algo así:

.DataSource = myDataSet

De esta manera los datos que están el en Grid, los tienes en "myDataSet", éste DataSet es el que tienes que mandar a llenar el Reporte.

Saludos.

Ahora ya he entendido, cuanto te refieres a dtReporte te refieres al conjunto de datos, el unico problema que tengo es que en vez de mostrarme los datos del datagrid me muestra los datos 0,4,5,8,....

Te pongo el codigo

Private Sub cmdImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImprimir.Click
Dim MyDataSet As New dtReporte
Dim MyDataTable As New dtReporte.dtDatosDataTable
Dim mi_rptSocios As New rptListado
Dim miReporte As New frmReportes
MyDataTable.Rows.Add(0,4,5,8,9,10,11,12,13)
MyDataSet.Tables("dtDatos").Merge(MyDataTable)
mi_rptSocios.SetDataSource(MyDataSet)
miReporte.crvInformes.ReportSource = mi_rptSocios
miReporte.Text = "Listado"
miReporte.Show()
End Sub

Ya esta solucionado

Dim filas As Integer = Me.dtBusqueda.Rows.Count - 1
Dim i As Integer = 0
For i = 0 To filas - 1
MyDataTable.Rows.Add(Me.dtBusqueda.Rows(i).Cells("dni").Value, Me.dtBusqueda.Rows(i).Cells("nombre").Value, Me.dtBusqueda.Rows(i).Cells("apellidos").Value, Me.dtBusqueda.Rows(i).Cells("direccion").Value, Me.dtBusqueda.Rows(i).Cells("poblacion").Value, Me.dtBusqueda.Rows(i).Cells("cp").Value, Me.dtBusqueda.Rows(i).Cells("telefono1").Value, Me.dtBusqueda.Rows(i).Cells("telefono2").Value, Me.dtBusqueda.Rows(i).Cells("email").Value)
Next (i)