Anexar un reporte en Crystal Report![gráfica de visualizaciones gráfica de visualizaciones](/img/img.png?11.51)
Visual Basic.NET
17.461 visualizaciones desde el 27 de Mayo del 2016
Crear un reporte en VB.net 2010 con Crystal Report
Crea un DATASET, presionar ADD
![1](/usr/16000/16595/57486f1c95053-1.jpg)
Creara el DATASET
![2](/usr/16000/16595/57486f3fe0ca2-2.jpg)
Seleccionar la table y arrastrarla para que realice la conexión
![3](/usr/16000/16595/57486f5b6b86f-3.jpg)
Adicionar CRYSTAL REPORT, presionar el botón ADD
![4](/usr/16000/16595/57486f7c32031-4.jpg)
Deja USING THE REPORT WIZARD/STANDARD, presiona OK
![5](/usr/16000/16595/57486fd7b0660-5.jpg)
Se visualizara la pantalla del wizard, selecciona la table y pasarla a SELECTED TABLES, presionar SIGUIENTE
![6](/usr/16000/16595/57486ff66034d-6.jpg)
Seleccionar los campos que aparecerán en el reporte, presionar siguiente
![7](/usr/16000/16595/57487016764ca-7.jpg)
En caso de querer agruparlo seleccionar los campos, presionar siguiente
![8](/usr/16000/16595/574870402d8d5-8.jpg)
En caso de querer hacer una selección de campos con formula, presionar siguiente
![9](/usr/16000/16595/574870618ed18-9.jpg)
Seleccionar algún estilo para el reporte, presionar Finalizar
![10](/usr/16000/16595/57487083eb31c-10.jpg)
Por último acomodar los campos y titulo
![11](/usr/16000/16595/574870a39c747-11.jpg)
Crear un form donde llamaremos el reporte, presionar ADD
![12](/usr/16000/16595/574870be8d7ee-12.jpg)
Arrastramos un CRYSTALREPORTVIEWER
![13](/usr/16000/16595/574870d94eee9-13.jpg)
Seleccionamos las propiedades del CRYSTALREPORTVIEWER1 , en el REPORTSOURCE seleccionamos el reporte creado y creara un REPORTDOCUMENT
![14](/usr/16000/16595/574870f58cdba-14.jpg)
Dentro de la form que llama el reporte copiar el código:
El código se copia en el load de la form, este código es para enviar un rango de fechas a imprimir.
Se crea una siguiente form donde se podrán 4 DateTimePicker
![15](/usr/16000/16595/574871230b2de-15.jpg)
En el botòn GENERAR REPORTE copiar el siguiente còdigo:
Crea un DATASET, presionar ADD
![1](/usr/16000/16595/57486f1c95053-1.jpg)
Creara el DATASET
![2](/usr/16000/16595/57486f3fe0ca2-2.jpg)
Seleccionar la table y arrastrarla para que realice la conexión
![3](/usr/16000/16595/57486f5b6b86f-3.jpg)
Adicionar CRYSTAL REPORT, presionar el botón ADD
![4](/usr/16000/16595/57486f7c32031-4.jpg)
Deja USING THE REPORT WIZARD/STANDARD, presiona OK
![5](/usr/16000/16595/57486fd7b0660-5.jpg)
Se visualizara la pantalla del wizard, selecciona la table y pasarla a SELECTED TABLES, presionar SIGUIENTE
![6](/usr/16000/16595/57486ff66034d-6.jpg)
Seleccionar los campos que aparecerán en el reporte, presionar siguiente
![7](/usr/16000/16595/57487016764ca-7.jpg)
En caso de querer agruparlo seleccionar los campos, presionar siguiente
![8](/usr/16000/16595/574870402d8d5-8.jpg)
En caso de querer hacer una selección de campos con formula, presionar siguiente
![9](/usr/16000/16595/574870618ed18-9.jpg)
Seleccionar algún estilo para el reporte, presionar Finalizar
![10](/usr/16000/16595/57487083eb31c-10.jpg)
Por último acomodar los campos y titulo
![11](/usr/16000/16595/574870a39c747-11.jpg)
Crear un form donde llamaremos el reporte, presionar ADD
![12](/usr/16000/16595/574870be8d7ee-12.jpg)
Arrastramos un CRYSTALREPORTVIEWER
![13](/usr/16000/16595/574870d94eee9-13.jpg)
Seleccionamos las propiedades del CRYSTALREPORTVIEWER1 , en el REPORTSOURCE seleccionamos el reporte creado y creara un REPORTDOCUMENT
![14](/usr/16000/16595/574870f58cdba-14.jpg)
Dentro de la form que llama el reporte copiar el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Imports System.Data.SqlClient
Imports System.Data
Private Sub ingresos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Cnn.open
Try
Dim Ds As New dsingresos
Dim Da As New SqlClient.SqlDataAdapter("Select * From TABLA " & _
"where FECHA_INGRESO >= '" & CAMPO_INGRESO.DateTimePicker11.Text & "' and FECHA_INGRESO <= '" & CAMPO_INGRESO.DateTimePicker22.Text & "' order by FECHA_INGRESO", Cnn)
Da.Fill(Ds, "TABLA")
'Mandar los datos al dataSet y muestralos
'se tiene que crear forzosamente esta instancia para poder pasar
'parametros...
Dim Reporte As New NOMBRE_REPORTE
Reporte.SetDataSource(Ds)
Reporte.SummaryInfo.ReportTitle = "TITULO DE MI REPORTE " & Today
Reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape
Me.CrystalReportViewer1.ReportSource = Reporte
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Se crea una siguiente form donde se podrán 4 DateTimePicker
![15](/usr/16000/16595/574871230b2de-15.jpg)
En el botòn GENERAR REPORTE copiar el siguiente còdigo:
1
2
3
4
5
6
7
8
9
10
11
12
Imports system.DateTime
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Se asigna al 11 y 22 para que no cambie el fomato de fechas
DateTimePicker11.Text = DateTimePicker1.Text
DateTimePicker22.Text = DateTimePicker2.Text
'Cambia formato de fechas para 11 y 22
DateTimePicker11.CustomFormat = "yyyyMMdd"
DateTimePicker11.Format = DateTimePickerFormat.Custom
DateTimePicker22.CustomFormat = "yyyyMMdd"
DateTimePicker22.Format = DateTimePickerFormat.Custom
My.Forms.ingresos.ShowDialog()
End Sub
155 visualizaciones durante los últimos 90 días