SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jethro_dani en Domingo 16 de Mayo de 2004, 02:51

Título: Crear Funcion Para Datareports
Publicado por: jethro_dani en Domingo 16 de Mayo de 2004, 02:51
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:
Título: Re: Crear Funcion Para Datareports
Publicado por: Brroz en Lunes 17 de Mayo de 2004, 10:53
¡¡¡¡¡¡¡¡???????!!!!!!!!

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.
Título: Re: Crear Funcion Para Datareports
Publicado por: roxiii en Martes 18 de Mayo de 2004, 03:30
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...
Título: Re: Crear Funcion Para Datareports
Publicado por: roxiii en Martes 18 de Mayo de 2004, 20:07
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: