cargar subinforme
Publicado por ruben (1 intervención) el 09/07/2015 19:06:29
Buenas, estoy intentando cargar un subinforme dentro de un informe y los datos se los paso por codigo pero no tengo cojones a hacer que me muestre los datos del subinforme, estoy desesperado por que solo me queda esto por acabar del proyecto, dejo el codigo para ver en que estoy fallando
un saludo y gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim ConString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Application.StartupPath & "\sociosDB.mdb;" & ""
Dim objDataSet As New DataSet
Dim objDataSet2 As New DataSet
Try
Dim objConnection As New OleDb.OleDbConnection(ConString)
objConnection.Open()
Dim objCommand As New OleDb.OleDbCommand("SELECT recibos.Id, recibos.mesano, recibos.localidadexp, recibos.nombre, recibos.apellidos, recibos.direccion, recibos.localidad, recibos.cpostal, recibos.provincia, recibos.provincia, recibos.iban, recibos.banco, recibos.sucursal, recibos.dc, recibos.c_c, recibos.cuota, recibos.cuota2, recibos.cuota3, recibos.concepto1, recibos.concepto2, recibos.concepto3, recibos.numsegsocial, recibos.dni, recibos.formapago, recibos.conceptogeneral1, recibos.conceptogeneral2, recibos.fechaexp, recibos.socio, recibos.dirtipo, recibos.dirnum, recibos.dirpiso, recibos.pagadoss, recibos.pagado, recibos.coste, recibos.id_emisor, recibos.pagado_parcial, recibos.impreso, * FROM (recibos INNER JOIN Emisores ON recibos.id_emisor = Emisores.Id_Tabla) INNER JOIN provincias ON recibos.provincia = provincias.provincia where recibos.id = " & refre & ahorasi, objConnection), objDataAdapter As New OleDb.OleDbDataAdapter(objCommand)
Dim objCommand2 As New OleDb.OleDbCommand("select * from cobro", objConnection), objDataAdapter2 As New OleDb.OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "recibos")
objDataAdapter2.Fill(objDataSet2, "cobros")
objDataAdapter = Nothing objCommand = NothingobjConnection.Close()
objConnection = NothingCatch ex As Exception
End Try
' Me.DataGridView1.DataSource = objDataSet.Tables("recibos")
Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
'Asigno el reporte
CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
CrReport.Load("\sociosDB\ReciboNE.rpt")
CrReport.SetDataSource(objDataSet.Tables("recibos"))
CrReport.OpenSubreport("\sociosDB\SubInforme.rpt").SetDataSource(objDataSet2.Tables("cobros"))
'imprecibos.CrystalReportViewer1.ReportSource = subreport
imprecibos.CrystalReportViewer1.ReportSource = CrReport
imprecibos.Show()
un saludo y gracias
Valora esta pregunta
0