none
Crystal report con sub reporte RRS feed

  • Pregunta

  • Hola a todos

    Estoy usando vb 2010 con base de datos access, y par a los informes Crystal Report

    No logro insertar dos consultas en un informe como postee en este link

    Por lo que me animo hacer un subreporte, para lo cual he insertado el sub informe creado

    Ahora, lo que no se es dónde insertar la consulta, alquien podría darme una mano?

     

     

     


     'Codigo de la clase del reporte principal
    Dim DSControlEditarEgresos As New DSControlEditarEgresos()
    Using dbObra As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=" & frmControl.lblObraCompleto.Text)
        'Egresos
        Dim sqlControlEditar As String = "SELECT Cantidad, Descripcion, Precio, Total FROM DetEgresos WHERE ID = @ID"
        Dim cmdControlEditar As OleDbCommand
        cmdControlEditar = New OleDbCommand(sqlControlEditar, dbObra)
        cmdControlEditar.Parameters.AddWithValue("@ID", (dialogControlEditar.lblID.Text))
        Dim daControlEditar As New OleDbDataAdapter(cmdControlEditar)
        daControlEditar.Fill(DSControlEditarEgresos, "DetEgresos")
     End Using
    
    'Y aqui el codigo del subreporte en otra clase
    
    Dim DSControlEditarEgresos As New DSControlEditarEgresos()
    Using dbObra As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=" & frmControl.lblObraCompleto.Text)
      'EgresosEditar
      Dim sqlControlEgresos As String = "SELECT Fecha, Concepto FROM Egresos WHERE ID = @ID"
      Dim cmdControlEgresos As OleDbCommand
      cmdControlEgresos = New OleDbCommand(sqlControlEgresos, dbObra)
      cmdControlEgresos.Parameters.AddWithValue("@ID", (dialogControlEditar.lblID.Text))
      Dim daControlEgresos As New OleDbDataAdapter(cmdControlEgresos)
      daControlEgresos.Fill(DSControlEditarEgresos, "Egresos")
    end using
    ' y en el load del formulario contenedor del informe
      Dim datos As DSControlEditarEgresos = ProgramControlEgresosEditar.GetProgramControlEditarEgresos
      Dim reporteControlEditarEgresos As New ReportControlEditar
      reporteControlEditarEgresos.SetDataSource(datos)
      CrystalReportViewer1.ReportSource = reporteControlEditarEgresos
    
    

     

    Alguna sugerencia?

     

    Gracias

    Carlos

     

     


    • Editado carlosanpy jueves, 17 de noviembre de 2011 11:46
    • Cambiado Enrique M. Montejo jueves, 17 de noviembre de 2011 15:59 Consulta sobre Crystal Reports (De:Lenguaje VB.NET)
    jueves, 17 de noviembre de 2011 11:44

Todas las respuestas