• Domingo 28 de Abril de 2024, 20:42
« anterior próximo »
Páginas: [1]

Autor Tema:  Crear Funcion Para Datareports  (Leído 1328 veces)

jethro_dani

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Crear Funcion Para Datareports
« en: Domingo 16 de Mayo de 2004, 02:51 »
0
El codigo (visual basic 6.0) que muestro a continuacion me permite mostrar diferentes datareports , entonces me preguntaba si repito este codigo en otros botones...¿¿¿como realizarlo a traves de una funcion ???



Private Sub cmd_general_Click() 'boton general
Load DataEnvironment1
Load DataReport1
DataReport1.Show vbModal
Unload DataReport1
Unload DataEnvironment1
End Sub


trate de hacer algo en una funcion pero no me resulta...!!!

ojala alguien me ayude.
thanks.
:comp:

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Crear Funcion Para Datareports
« Respuesta #1 en: Lunes 17 de Mayo de 2004, 10:53 »
0
¡¡¡¡¡¡¡¡???????!!!!!!!!

Código: Text
  1.  
  2. Private Sub cmd_general_Click()
  3.    Metodo DataReport1
  4. End Sub
  5.  
  6. Private Sub cmd_OtroBoton_Click()
  7.    Metodo DataReport2
  8. End Sub
  9.  
  10. Private Sub cmd_yOtro_Click()
  11.    Metodo DataReport2
  12. End Sub
  13.  
  14. Private Sub Metodo(Byval DtaRpt As DataReport)
  15.    If DtaRpt is Nothing Then exit Sub
  16.    Load DataEnvironment1
  17.    Load DtaRpt
  18.    DtaRpt.Show vbModal
  19.    Unload DtaRpt
  20.    Unload DataEnvironment1
  21. End Sub
  22.  
  23.  
  24.  

Abur.

roxiii

  • Miembro activo
  • **
  • Mensajes: 79
    • Ver Perfil
Re: Crear Funcion Para Datareports
« Respuesta #2 en: Martes 18 de Mayo de 2004, 03:30 »
0
Hola Brroz :hola: ,  probe tu codigo y justamente en esta linea


Código: Text
  1. DtaRpt.Show vbModal
  2.  
  3.  

 es que presenta el error de que no encuentra el metodo o miembro de datos...

roxiii

  • Miembro activo
  • **
  • Mensajes: 79
    • Ver Perfil
Re: Crear Funcion Para Datareports
« Respuesta #3 en: Martes 18 de Mayo de 2004, 20:07 »
0
hola creo que con esto se soluciona el problema:

Código: Text
  1.  
  2. Private Sub cmd_general_Click()
  3. Dim DataRep as New DataReport1
  4.   Metodo DataRep
  5. End Sub
  6.  
  7. Private Sub cmd_OtroBoton_Click()
  8. Dim DataRep as New DataReport2
  9.   Metodo DataRep
  10. End Sub
  11.  
  12. Private Sub cmd_yOtro_Click()
  13. Dim DataRep as New Datareportotro
  14.   Metodo DataRep
  15. End Sub
  16.  
  17. Private Sub Metodo(Byval DtaRpt As object)
  18.   If DtaRpt is Nothing Then exit Sub
  19.   Load DataEnvironment1
  20.   Load DtaRpt
  21.   DtaRpt.Show vbModal
  22.   Unload DtaRpt
  23.   Unload DataEnvironment1
  24. End Sub
  25.  
  26.  

Bienvenida otra sugerencia  :comp:
Páginas: [1]
« anterior próximo »