| Pregunta: | 13163 - MANEJO DE RECURSOS EN VISUALBASIC 5.0 |
| Autor: | Lolita Gómez |
| Tengo un problema con Crystal Report 4.6, cada vez que en un mismo formulario hago la presentación preliminar de 4 ó más reportes y al momento de salir de esta pantalla me sale una pantalla de error de Visual Basic que dice :
Este programa ha efectuado una operación no admitida y será interrumpido. VB5 provocó un error de página no válida en el módulo Crystl32.ocx de 017f:250127 fb. y ademas con todoun listado de registros con estos códigos de números. Pienso que debe ser que al abrir tantas veces reportes en una misma pantalla consume recursos como memoria y esto provoca que visual Basic se cierre. Que función de Api es la apropiada y como utilizarla?. Muchas Gracias por resolver esta inquietud. | |
| Respuesta: | Max Báez |
| Debes limpiar los parametros del Crystal.
''''''''''''''''''''''''''''''''''''''' Sub PROC_LIMPIA_PARAMETROS_CRYSTAL() Dim I Dim Nombre_Informe For I = 0 To 30 Menu_Principal_BacInver.CrystalReport.StoredProcParam(I) = " " Menu_Principal_BacInver.CrystalReport.Formulas(I) = " " Next Nombre_Informe = Menu_Principal_BacInver.CrystalReport.ReportFileName Menu_Principal_BacInver.CrystalReport.Reset Menu_Principal_BacInver.CrystalReport.ReportFileName = Nombre_Informe Menu_Principal_BacInver.CrystalReport.Connect = "DSN = " & GlobalesIni.SIS_NombreDSN & ";UID = " & GlobalesIni.SER_Login & ";PWD = " & GlobalesIni.SER_Password & ";DSQ = " & GlobalesIni.SER_DataBase 'Me.CrystalReport.Connect = Ado.ConnectionString Menu_Principal_BacInver.CrystalReport.WindowParentHandle = Menu_Principal_BacInver.hWnd Menu_Principal_BacInver.CrystalReport.WindowState = crptMaximized Menu_Principal_BacInver.CrystalReport.WindowShowPrintSetupBtn = True Menu_Principal_BacInver.CrystalReport.WindowShowSearchBtn = True Menu_Principal_BacInver.CrystalReport.WindowShowRefreshBtn = True Menu_Principal_BacInver.CrystalReport.WindowShowNavigationCtls = True Menu_Principal_BacInver.CrystalReport.WindowControls = True Menu_Principal_BacInver.CrystalReport.WindowShowGroupTree = True Menu_Principal_BacInver.CrystalReport.WindowShowProgressCtls = True Menu_Principal_BacInver.CrystalReport.WindowAllowDrillDown = False Menu_Principal_BacInver.CrystalReport.DiscardSavedData = True Menu_Principal_BacInver.CrystalReport.WindowShowGroupTree = True Menu_Principal_BacInver.CrystalReport.ProgressDialog = True End Sub ''''''''''''''''''''''''''' Cualquier cosa, a mi email. mAx. | |