Autor
creado un formulario en fox
cuando ejecuto el formulario .
ahi hay yb text1 donde preciono enter y me llama otro formulario pero ala llamar me sale este error
Citar
Error del programa
La Cláusula TO Sólo Se puede Usar Con formularios y conjuntos de formularios modales
La Cláusula TO Sólo Se puede Usar Con formularios y conjuntos de formularios modales
mi codigo es este
Citar
sele agenda
set orde to 1
if seek (this.value)
thisform.txtapellido.value= (agenda.apellido)
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
this.parent.olbFoto.picture=foto
else
do form c:\agenda\formulario\c_npedido to XValcod
this.value = XValcod
seek this.value
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
thisform.refresh
endi
sele agenda
set orde to 1
if seek (this.value)
thisform.txtapellido.value= (agenda.apellido)
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
this.parent.olbFoto.picture=foto
else
do form c:\agenda\formulario\c_npedido to XValcod
this.value = XValcod
seek this.value
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
thisform.refresh
endi
sele agenda
lo que esta con rojo me mada el error
Citar
cuando le di pasar de alto al error
me salio el siguiente error
Error del programa
No se encuentra la variable 'XVALCOD'
me salio el siguiente error
Error del programa
No se encuentra la variable 'XVALCOD'
AL PONER depurar me manda el ala linea roja
Citar
sele agenda
set orde to 1
if seek (this.value)
thisform.txtapellido.value= (agenda.apellido)
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
this.parent.olbFoto.picture=foto
else
do form c:\agenda\formulario\c_npedido to XValcod
this.value = XValcod
seek this.value
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
thisform.refresh
endi
sele agenda
set orde to 1
if seek (this.value)
thisform.txtapellido.value= (agenda.apellido)
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
this.parent.olbFoto.picture=foto
else
do form c:\agenda\formulario\c_npedido to XValcod
this.value = XValcod
seek this.value
thisform.txtnombre.value= (agenda.nombre)
thisform.txtgerencia.value=alltrim(agenda.gerencia)
thisform.txtoficina.value=alltrim(agenda.oficina)
thisform.txtanexo.value=alltrim(agenda.anexo)
thisform.refresh
endi
sele agenda
TAMBIEN CAMBIE
XValcod por XVALCOD
esto es :
Microsoft Visual FoxPro 6.0
En línea
