Reporte en Crystal

[ranchoteca]

Hola creo que este te puede servir, utiliza un boton que filtra los registros dentro de un rango de fechas.


Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' instanciar el objeto informe
Dim oRptPrueba As New CrystalReport2()
' establecer la fórmula de selección de registros
oRptPrueba.RecordSelectionFormula = "{RESDOC_FACTURAS.Codigo_Cliente} = '" & Me.TextBox1.Text & "' and {RESDOC_FACTURAS.fecha_factura}>=Date(" & DateTimePicker1.Value.Year & "," & DateTimePicker1.Value.Month & "," & DateTimePicker1.Value.Day & ") and {RESDOC_FACTURAS.fecha_factura}<=Date(" & DateTimePicker2.Value.Year & "," & DateTimePicker2.Value.Month & "," & DateTimePicker2.Value.Day & ")" ' asignar el objeto informe al control visualizador
Me.CrystalReportViewer1.ReportSource = oRptPrueba
End Sub

End Class