Paso por ref. a una funcion un objeto Combo
Publicado por Joan (1 intervención) el 03/05/2001 09:34:51
Hola, gracias a tod@s por vuestra ayuda.
Tengo una aplicacion en tres capas, ola capa de datos, la de negocio y la aplicacion.
Me interesa desde la aplicación cargar los combos llamando a funciones de la capa de negocio. Al pasarle el combobox por referencia, me da un error de no coinciden los tipos. Que esta ocurriendo?
Estas son las definciones de las funciones y como las estoy utilizando:
En la aplicación la llamada a las funciones es la siguiente:
Dim conexio as new clsconexion
If conexion.CargaCboZonas(GDCONEXION_ACCESS, cboZonaTarifa) Then
Call MsgBox("Bien", vbOKOnly, Error)
Else
Call MsgBox("Mal", vbOKOnly, Error)
End If
Y en la capa de negocio tengo la funcion:
Public Function CargaCboZonas(Tipo As enumTipoConexion, cbo As Object) As Boolean
Porque no me coinciden los tipos si se trata de un Object????
GRacias a tod@s!!!!!
Tengo una aplicacion en tres capas, ola capa de datos, la de negocio y la aplicacion.
Me interesa desde la aplicación cargar los combos llamando a funciones de la capa de negocio. Al pasarle el combobox por referencia, me da un error de no coinciden los tipos. Que esta ocurriendo?
Estas son las definciones de las funciones y como las estoy utilizando:
En la aplicación la llamada a las funciones es la siguiente:
Dim conexio as new clsconexion
If conexion.CargaCboZonas(GDCONEXION_ACCESS, cboZonaTarifa) Then
Call MsgBox("Bien", vbOKOnly, Error)
Else
Call MsgBox("Mal", vbOKOnly, Error)
End If
Y en la capa de negocio tengo la funcion:
Public Function CargaCboZonas(Tipo As enumTipoConexion, cbo As Object) As Boolean
Porque no me coinciden los tipos si se trata de un Object????
GRacias a tod@s!!!!!
Valora esta pregunta


0