RE:Imprimir un datagrid con Cristal
Publicado por
yeimi juarez (1 intervención) el 07/03/2010 17:58:16
para imprimir un dataset desconectado de la base de datos, es decir tu le metes datos a mano, lo puedes hacer de la siguiente manera
1.- en el explorador de soluciones ->add->new item-> common items->dataset
al agregar el dataset toma el nombre "dataset1.xsd"
2.-en el explorador de soluciones ->add->new item->Reporting->crystal Reports
al agregar el formulario de crystal toma el nombre "CrystalReport1.rpt"
3.dentro de dataset1 debes agregar una tabla con los mismos campos que vas a colocar en crystal, ej
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Dim reporte As New CrystalReport1()
Dim ds As New DataSet1
For i As Integer = 0 To 15
'llenamos un datagrid con los datos que quieras meter
DataGridView1.Rows.Add(i, "nombre" & i)
'tambien llenamos la tabla del dataset1 llamda datatable1 -- tu ya le pusiste las
' columnas necesarias--- en mi caso solo tiene 2 una llamada id y otra nombre
ds.Tables("datatable1").Rows.Add(i, "nombre" & i)
Next
' esta es una manera de enlazar el reporte con la tabla exacta que queremos
reporte.Database.Tables.Item("datatable1").SetDataSource(ds)
CrystalReportViewer1.ReportSource = reporte
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*