Informes con Datset

[jaullo]

Hola pinty....

Generalmente cuando necesito un reporte (y como necesito programar rapidamente jaja ) con un dataset lo que hago es agrear un origen de datos, luego arrastro la tabla que necesito al form que tendrá el CRV, esto te crea un datagrid, un binding source, ademas del tablaadapter.
Cuando tengo esto, borro el datagrid y el bindingnavigator y dejo solo el binding source que sera tu conexion con la bd y el tableadapter.

una vez que tengo esto... agrego el crv y creo el siguiente procedimiento que llamare posteriormente en un boton (debes adapatarlo a tu necesidad).

Public Sub cargar()

' instanciar el objeto informe
Dim oRptPrueba As New XPagarProveedor
Dim lParameter As New ParameterField

' utilizar el DataAdapter para rellenar el DataSet
Me.CuentasxpagarTableAdapter.Fill(Me.Midataset.cue ntasxpagar)
' tomar el objeto informe, y establecerle
' como fuente de datos, el DataSet que
' acabamos de rellenar de datos
oRptPrueba.SetDataSource(Me.Midataset)
' cargar el informe en el control visualizador

oRptPrueba.ParameterFields(0).CurrentValues.AddVal ue(txtmin.Text)
Me.CrystalReportViewer1.ParameterFieldInfo = oRptPrueba.ParameterFields
Me.CrystalReportViewer1.ReportSource = oRptPrueba
'Me.CrystalReportViewer1.ReportSource = lPath & "nombrereporte.rpt"

End Sub

espero que te sea de ayuda... talvez no es a puro codigo pero es una forma bastante rapida.

Saludos,