Cadena perdida entre funciones VB

[yz!]

Buenas,

Tengo una función que envia los datos recibidos de un select multiple a otra.
La cuestión esta en que pierdo los datos cuando sólo envío un valor del select.

Este es mi código

Código:

Dim resultado
resultado = ActualizaPermisoConducir(Id_Usuario, Datos(15))
If resultado <> True Then
   ActualizaDatosPersonales = resultado
   Exit Function
End If

Si imprimo resultado sin entrar en el if me muestra los valores adecuados, pero si envío a la otra función e imprimo la variable ya he perdido el valor seleccionado.

Código:

Public Function ActualizaPermisoConducir(ByVal Id_Usuario As Long, _
ByVal Permisos As String) As Variant   
    ActualizaPermisoConducir = Permisos
    Exit Function
End Function

¿Que puede estar pasando? ¿Alguién puede ayudarme?

[Myakire]

Veamos, primero confirmemos, ¿esto tiene algo que ver con ASP?

Si la respuesta es si, ¿cómo mandas desde el evento X del select del cliente a la función ASP?

[yz!]

Parcialmente.

Recíbo la cadena en un asp con un request.form y se lo paso a una función en una dll activeX en Visual Basic.

He comprobado que la función esta recibiendo correctamente los valores.

Código:

Dim resultado
resultado = ActualizaPermisoConducir(Id_Usuario, Datos(15))
ActualizaDatosPersonales = resultado

Devoveindome el valor correcto.

Sin embargo, de esta manera, nunca entra en el if apesar de que le este enviando los mismos valores.

Código:

Dim resultado
resultado = ActualizaPermisoConducir(Id_Usuario, Datos(15))
If resultado <> True Then
   ActualizaDatosPersonales = resultado
   Exit Function
End If

¿Puede que tenga que ver la definición de tipos de la variable resultado?

[Myakire]

Según veo en la definición de tu función que pusiste en el primer post, la función es igual al segundo argumento, el cual se supone que es string, es decir, que resultado = Datos(15) ... y si Datos(15) es diferente de true (lo que se supone que siempre debe cumplirse ya que Datos(15) es una cadena), entonces ActualizaDatosPersonales = Datos(15).

No se, a lo mejor soy yo, pero no le encuentro ni pies ni cabeza a eso, creo que debes hacerle una prueba de escritorio con mucho cuidado a ese código.

Sorry, a lo mejor otro ve algo que yo no

[yz!]

No es del todo a así.

Resultado es igual a la segunda función que es de tipo Variant, por lo que puede devolver varios tipos de valores. La intención es devolver cadenas de texto en caso de error o true en caso de que el procedimiento se haya ejecutado correctamente.
He simplificado las funciones para que envien y reciban lo justo para comprobar los valores que envío y recibo.

La cuestión es que cuando le envio en Datos(15) el valor "B" (String) (o "BTP", o "A") devuelve un true.
Sin embargo si le envío "B, BTP" (String) devuelve correctamente estos valores como cadena.

[yz!]

Al final lo he resuelto quitando el if de la primera función y recuperando los datos si o si.

No se porque este extraño comprotamiento de transformación de datos que se me escapa.

Gracias por la ayuda.


Un saludo