none
Reporte con datos de form, ayuda RRS feed

  • Pregunta

  • Hola nuevamente. En mi proyecto necesito ahora poder crear un reporte sobre pacientes específicos (es decir, abriendo la planilla de una paciente, o en otro form filtrando con la ID). Como sabrán recien comienzo en el mundo de la programación, y pense en buscar informacion sobre CrystalReport, y se que para cargar los datos al reporte necesito un dataset. Por ende realice lo siguiente: cree un dataset, en el cual hay dos tablas (una sobre datos personales y otra sobre datos clínicos). Luego, cree un reporte, en el cual vincule las columnas del dataset, y repartí a mi gusto los cuadros de de texto de cada una de las columnas de las tablas. Ahora bien, tengo dos problemas:

    1- si el reporte se crea desde la planilla del paciente, realizo lo siguiente:

    Function CrearReporte() As Boolean
            Dim ds As New DataSet1.DataTablePersonalesDataTable
            Dim ds2 As New DataSet1.DataTableClinicosDataTable
    
            ds.IdPersonaColumn.DefaultValue = txtID.Text
            ds.NombreColumn.DefaultValue = txtNombre.Text
            ds.ApellidoColumn.DefaultValue = txtApellido.Text
            ds.GeneroColumn.DefaultValue = cbxGenero.Text
            ds.TelefonoLColumn.DefaultValue = txtTelefonoL.Text
            ds.TelefonoPColumn.DefaultValue = txtTelefonoP.Text
            ds.FdNColumn.DefaultValue = DateTimePicker1.Text
            ds.SangreColumn.DefaultValue = cbxSangre.Text
            ds.ObraSocialsinoColumn.DefaultValue = cbxObraSocial.Text
            ds.ObraSocialColumn.DefaultValue = txtNombreOS.Text
            ds.NdeObraSocialColumn.DefaultValue = txtNumeroOS.Text
            ds.DocumentoColumn.DefaultValue = txtDocumento.Text
            ds.OcupacionColumn.DefaultValue = txtOcupacion.Text
            ds.MailColumn.DefaultValue = txtMail.Text
    
            ds2.PesoColumn.DefaultValue = txtPeso.Text
            ds2.AlturaColumn.DefaultValue = txtAltura.Text
            ds2.DiabeticoColumn.DefaultValue = cbxDiabetico.Text
            ds2.EpileticoColumn.DefaultValue = cbxEpileptico.Text
            ds2.DAColumn.DefaultValue = DateTimePicker2.Text
            ds2.LugarColumn.DefaultValue = cbxLugarAmp.Text
            ds2.RazonColumn.DefaultValue = txtRazonAmp.Text
            ds2.GrupoPrimarioColumn.DefaultValue = cbxGrupoP.Text
            ds2.NdActColumn.DefaultValue = txtNivelAct.Text
            ds2.NdAmpColumn.DefaultValue = txtNivelAmp.Text
            ds2.AmputadorColumn.DefaultValue = txtAmputador.Text
    
            Dim rpt As New ReportePaciente
            rpt.Load("C:\Users\J Diaz\Desktop\Orthopedix PM\Orthoepdix PM\ReportePaciente.rpt")
            rpt.SetDataSource(ds2, ds)
            ReportViewer.Show()
    
        End Function
    


    -->pero no se como poner en .SetDataSource las dos tablas. Luego, se deberia abrir el ReportViewer y el datasource del ReportViewer1 seria rpt.

    2- si el reporte se habre desde otro form, seguramente debo recurir a una consulta a la base de datos filtrando los datos por el ID del paciente. Asi trae los datos de las dos tablas tblPacientes y tblDatosClinicos y los carga al DataSet. Pero no se me ocurre como hacerlo.

    Gracias, Julian Diaz


    Julian Diaz
    • Cambiado Enrique M. Montejo miércoles, 5 de octubre de 2011 5:54 consulta sobre Crystal Reports (De:Lenguaje VB.NET)
    martes, 4 de octubre de 2011 23:11