
29/01/2009, 15:35
|
| | Fecha de Ingreso: enero-2009
Mensajes: 1
Antigüedad: 16 años, 2 meses Puntos: 0 | |
Respuesta: llamar a un reporte usando crystal 11 oyes carnal tengo una bronca te paso el codigo y te digo en que linea no me esta haciendo nada
'Dim report As New CrystalReport2
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Private Sub Form_Load()
MsgBox imprime.Text2.Text
Text1.Text = imprime.Text2.Text
CRViewer1.DisplayBorder = False
CRViewer1.DisplayTabs = False
CRViewer1.EnableDrillDown = False
CRViewer1.EnableRefreshButton = False
Dim imprime1 As String
imprime1 = "select folio from acciones where fecha_servicio like '%" & Text1.Text & "%'"
If DataEnvironment1.rsacciones.State = 1 Then DataEnvironment1.rsacciones.Close
DataEnvironment1.rsacciones.Open imprime1 AAAqui es donde no me carga la consulta
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport("c:\Documents and Settings\Administrador\Mis Documentos\admin\report1.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource imprime1
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Do While CRViewer1.IsBusy
DoEvents
Loop
CRViewer1.Zoom 100
no se si me pudieran ayudar soy nuevo en el crystalreport
mil gracias rasa |