05/10/2005, 10:54
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 35
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| Erro al cargan el crystal en visual
Este el el codigo de "ENEA" y lo adapte el mio pero me manda un errror en
CRViewer.DisplayBorder = False....dice que se requiere de un objeto.....podrian ayudarme¡¡¡¡¡¡gracias....
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
CRViewer.DisplayBorder = False
CRViewer.DisplayTabs = False
CRViewer.EnableDrillDown = False
CRViewer.EnableRefreshButton = False
rs.Open "Select Nombre, A_Paterno, A_Materno from cliente Order by Id_cli desc limit 1"
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\Report3.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource rs
CRViewer.ReportSource = Report
CRViewer.ViewReport
Do While CRViewer.IsBusy
DoEvents
Loop
CRViewer.Zoom 100
rs.Close |