Crystal Report - cargar subinforme

   
Vista:

cargar subinforme

Publicado por ruben rsanchezti@gmail.com (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

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 = Nothing
            objConnection.Close()
            objConnection = Nothing
        Catch 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder