Vectores(array unidimensional)
Tengo un formulario con dos campos de textos(text1 y text2), debo de definir dos vectores, de tal forma que text1 cargue en uno y text2 en otro, y luego debo recuperar los datos y cargarlos en text3 y text4, pero no se en que propiedad definir ni como incrementar el subíndice, esto lo he hecho en clipper y funciona muy bien, pero en un formulario de vfp no me sale nada.
Desde ya muchas gracias
Saludos
Juan carlos
Desde ya muchas gracias
Saludos
Juan carlos
1 respuesta
Respuesta de dricardo
1
Local n
N=1
Select Tabla
Do while !Eof()
Public Arreglo(n)
Arreglo(n) = Tabla.Campo
Skip
Enddo
Local Comando
For n = 1 To Alen( Arreglo)
Comando = 'ThisForm.Text'+Alltrim(Str(n))+'.Value = Arreglo(n)'
&Comando
EndFor
&Debes tener cuidado que no exista mas elementos que texbox, pero con otra macro puede resolver ese problema.
N=1
Select Tabla
Do while !Eof()
Public Arreglo(n)
Arreglo(n) = Tabla.Campo
Skip
Enddo
Local Comando
For n = 1 To Alen( Arreglo)
Comando = 'ThisForm.Text'+Alltrim(Str(n))+'.Value = Arreglo(n)'
&Comando
EndFor
&Debes tener cuidado que no exista mas elementos que texbox, pero con otra macro puede resolver ese problema.
