Tema: Asignar un dataset creado en tiempo de ejecucion a un informe Crystal
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 29/07/2005, 18:24
chcma
 
Fecha de Ingreso: junio-2003
Ubicación: Asturias
Mensajes: 2.429
Antigüedad: 20 años, 11 meses
Puntos: 7
Bueno aqui va:

1-. Cree un DataSet en Modo Diseño, para poder diseñar el Informe, despues en un Botón de un formulario hago lo siguiente:


Código: 
Dim DAC As OleDbDataAdapter = New OleDbDataAdapter("Select * from tclientes", FrmMdi.MDI.CN)
    Dim DAF As OleDbDataAdapter = New OleDbDataAdapter("Select * from tfianzas", FrmMdi.MDI.CN)
Try
            NDSInforme.Clear()

            DAC.Fill(NDSInforme, "tclientes")
            DAF.Fill(NDSInforme, "tfianzas")

            Dim Informe As New CRInformeDeudores
            Informe.SetDataSource(NDSInforme)

            CRV.ReportSource = Informe
            CRV.Show()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error en FrmInforme")
        End Try

¿Ok?
__________________
Charlie.