Devolver más de un valor de un formulario
Cómo le puedo hacer para devolver más de un valor de un formulario...
Intente DO FORM miForm TO val1, val2, ... Pero al colocar RETURN val1, val2, ... En UNLOAD de miForm me genera error.
Trabajo con VFP 7.0 en XP.
Intente DO FORM miForm TO val1, val2, ... Pero al colocar RETURN val1, val2, ... En UNLOAD de miForm me genera error.
Trabajo con VFP 7.0 en XP.
1 respuesta
Respuesta de fer1710
1
Lo que puedes hacer es pasarle una variable ARRAY como parámetro, y al salir del formulario, puedes alterar los valores de esa variable ARRAY.
Ejemplo
DIME array1[3]
array1[1] = 'Texto'
array1[2] = 20
array1[3] = date()
DO FORM formulario1 With array1
*En el Init del formulario puedes poner:
LPARAMETER lp_array
PUBLIC p_array
p_array = lp_array
* Despues en un commandbutton "Cerrar" puedes poner:
p_array[1] = "Texto2"
p_array[2] = 30
p_array[3] = date() -10
array1 = p_array
RELEASE p_array
release thisform
**Luego puedes verificar que el contenido del array inicial ha cambiado
clear
?array1[1]
?array1[2]
?array1[3]
Ejemplo
DIME array1[3]
array1[1] = 'Texto'
array1[2] = 20
array1[3] = date()
DO FORM formulario1 With array1
*En el Init del formulario puedes poner:
LPARAMETER lp_array
PUBLIC p_array
p_array = lp_array
* Despues en un commandbutton "Cerrar" puedes poner:
p_array[1] = "Texto2"
p_array[2] = 30
p_array[3] = date() -10
array1 = p_array
RELEASE p_array
release thisform
**Luego puedes verificar que el contenido del array inicial ha cambiado
clear
?array1[1]
?array1[2]
?array1[3]
