no puedo usar barra de herrameintas de Crystal
Publicado por Rotsen (16 intervenciones) el 16/03/2009 23:04:34
Hola..amigos anteriorment expuse el problema de que no podia ejecutar mis reportes con Crystal.....bien ese problema ya logre solventarlo...pero cuando se visualizan los reportes no puede utilizar la Barra de Herramientas de Crystal...es decir que si deseo Imprimir o Exportar el Reporte desaparece de la pantalla, que puede estar pasando ?
Este es el codigo con el cual genero el reporte utilizando un SQLDataSource y lo ejecuto desde un boton.....FAVOR AYUDA URGENTE...
Protected Sub Button_VerReporte(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objdataset As New DANomarcadas
Try
With objdataset.Tables(0)
Dim Depto As IEnumerable = SqlDataSourceFechas.Select(DataSourceSelectArguments.Empty)
For Each row As Data.DataRowView In Depto
Dim fila As System.Data.DataRow = .NewRow()
fila(objdataset.REGISTRO.Emplea_idColumn) = row("Emplea_id").ToString.ToUpper
fila(objdataset.REGISTRO.FechaColumn) = row("FECHA")
fila(objdataset.REGISTRO.EmpleadoColumn) = row("EMPLEADO").ToString.ToUpper
fila(objdataset.REGISTRO.EntradaColumn) = row("ENTRADA").ToString
fila(objdataset.REGISTRO.SalidaColumn) = row("SALIDA").ToString
.Rows.Add(fila)
Next
Dim oView As New DataView(objdataset.Tables(0))
Me.CrystalReportSource1.Report.FileName = "../Fechas_NoMarcadas.rpt"
Me.CrystalReportSource1.ReportDocument.SetDataSource(objdataset.Tables(0))
Me.CrystalReportViewer1.ReportSource = Me.CrystalReportSource1
End With
Catch oExcep As SqlException
Response.Write("Se ha producido un error en la conexion: ")
Finally
Me.SqlDataSourceFechas.Dispose()
End Try
End Sub
Este es el codigo con el cual genero el reporte utilizando un SQLDataSource y lo ejecuto desde un boton.....FAVOR AYUDA URGENTE...
Protected Sub Button_VerReporte(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objdataset As New DANomarcadas
Try
With objdataset.Tables(0)
Dim Depto As IEnumerable = SqlDataSourceFechas.Select(DataSourceSelectArguments.Empty)
For Each row As Data.DataRowView In Depto
Dim fila As System.Data.DataRow = .NewRow()
fila(objdataset.REGISTRO.Emplea_idColumn) = row("Emplea_id").ToString.ToUpper
fila(objdataset.REGISTRO.FechaColumn) = row("FECHA")
fila(objdataset.REGISTRO.EmpleadoColumn) = row("EMPLEADO").ToString.ToUpper
fila(objdataset.REGISTRO.EntradaColumn) = row("ENTRADA").ToString
fila(objdataset.REGISTRO.SalidaColumn) = row("SALIDA").ToString
.Rows.Add(fila)
Next
Dim oView As New DataView(objdataset.Tables(0))
Me.CrystalReportSource1.Report.FileName = "../Fechas_NoMarcadas.rpt"
Me.CrystalReportSource1.ReportDocument.SetDataSource(objdataset.Tables(0))
Me.CrystalReportViewer1.ReportSource = Me.CrystalReportSource1
End With
Catch oExcep As SqlException
Response.Write("Se ha producido un error en la conexion: ")
Finally
Me.SqlDataSourceFechas.Dispose()
End Try
End Sub
Valora esta pregunta


0