dos datagrid y crystal reports
Publicado por cadenas (5 intervenciones) el 16/05/2011 10:03:41
buenas,
Estoy haciendo un programa para controlar un taller de coches. El problema que tengo es para imprimir.
Tengo todo el formulario hecho, con varias cajas de texto y dos datagridview donde aparecen datos dinamicos.
Despues de probar y leer consegui enviar los datos al crystal reports, el problema es que me repite los datos de los datagridview.
http://img828.imageshack.us/img828/2244/ejemc.jpg
el codigo que utilizo es este. no soy experto en esto.
es visual 2010 y la ultima version de crystal reports.
Dim filas1 As Integer = DataGridView2.Rows.Count - 2
Dim filas2 As Integer = DataGridView3.Rows.Count - 2
Dim col1 As Integer = DataGridView2.Columns.Count - 2
Dim col2 As Integer = DataGridView3.Columns.Count - 2
Dim i1, i2 As Integer
Dim ds As New Dset1
For i1 = 0 To filas1
ds.Tables("db").Rows.Add()
For i2 = 0 To col1
ds.Tables("db").Rows(i1)(i2) = DataGridView2.Item(i2 + 1, i1).Value
Next
Next
For i1 = 0 To filas2
ds.Tables("db1").Rows.Add()
For i2 = 0 To col2
ds.Tables("db1").Rows(i1)(i2) = DataGridView3.Item(i2 + 1, i1).Value
Next
Next
Dim frm As New view_reporte
Dim rpt As New CrystalReport1
rpt.Load("CrystalReport1.rpt")
rpt.SetDataSource(ds)
frm.CrystalReportViewer1.ReportSource = rpt
frm.Show()
version visual studio 2010 y la misma del crystal reports.
muchas gracias por la ayuda.
Estoy haciendo un programa para controlar un taller de coches. El problema que tengo es para imprimir.
Tengo todo el formulario hecho, con varias cajas de texto y dos datagridview donde aparecen datos dinamicos.
Despues de probar y leer consegui enviar los datos al crystal reports, el problema es que me repite los datos de los datagridview.
http://img828.imageshack.us/img828/2244/ejemc.jpg
el codigo que utilizo es este. no soy experto en esto.
es visual 2010 y la ultima version de crystal reports.
Dim filas1 As Integer = DataGridView2.Rows.Count - 2
Dim filas2 As Integer = DataGridView3.Rows.Count - 2
Dim col1 As Integer = DataGridView2.Columns.Count - 2
Dim col2 As Integer = DataGridView3.Columns.Count - 2
Dim i1, i2 As Integer
Dim ds As New Dset1
For i1 = 0 To filas1
ds.Tables("db").Rows.Add()
For i2 = 0 To col1
ds.Tables("db").Rows(i1)(i2) = DataGridView2.Item(i2 + 1, i1).Value
Next
Next
For i1 = 0 To filas2
ds.Tables("db1").Rows.Add()
For i2 = 0 To col2
ds.Tables("db1").Rows(i1)(i2) = DataGridView3.Item(i2 + 1, i1).Value
Next
Next
Dim frm As New view_reporte
Dim rpt As New CrystalReport1
rpt.Load("CrystalReport1.rpt")
rpt.SetDataSource(ds)
frm.CrystalReportViewer1.ReportSource = rpt
frm.Show()
version visual studio 2010 y la misma del crystal reports.
muchas gracias por la ayuda.
Valora esta pregunta


0