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

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.

Brroz · « **Respuesta #1 en:** Lunes 17 de Mayo de 2004, 10:53 »

¡¡¡¡¡¡¡¡???????!!!!!!!!

Código: Text

 
Private Sub cmd_general_Click()
   Metodo DataReport1
End Sub
 
Private Sub cmd_OtroBoton_Click()
   Metodo DataReport2
End Sub
 
Private Sub cmd_yOtro_Click()
   Metodo DataReport2
End Sub
 
Private Sub Metodo(Byval DtaRpt As DataReport)
   If DtaRpt is Nothing Then exit Sub
   Load DataEnvironment1
   Load DtaRpt
   DtaRpt.Show vbModal
   Unload DtaRpt
   Unload DataEnvironment1
End Sub
 
 
 

Abur.

roxiii · « **Respuesta #2 en:** Martes 18 de Mayo de 2004, 03:30 »

Hola Brroz

, probe tu codigo y justamente en esta linea

Código: Text

DtaRpt.Show vbModal
 
 

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

roxiii · « **Respuesta #3 en:** Martes 18 de Mayo de 2004, 20:07 »

hola creo que con esto se soluciona el problema:

Código: Text

 
Private Sub cmd_general_Click()
Dim DataRep as New DataReport1
  Metodo DataRep
End Sub
 
Private Sub cmd_OtroBoton_Click()
Dim DataRep as New DataReport2
  Metodo DataRep
End Sub
 
Private Sub cmd_yOtro_Click()
Dim DataRep as New Datareportotro
  Metodo DataRep
End Sub
 
Private Sub Metodo(Byval DtaRpt As object)
  If DtaRpt is Nothing Then exit Sub
  Load DataEnvironment1
  Load DtaRpt
  DtaRpt.Show vbModal
  Unload DtaRpt
  Unload DataEnvironment1
End Sub
 
 

Bienvenida otra sugerencia

SoloCodigo

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

jethro_dani

Crear Funcion Para Datareports

Brroz

Re: Crear Funcion Para Datareports

roxiii

Re: Crear Funcion Para Datareports

roxiii

Re: Crear Funcion Para Datareports