Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: DJmixmancar en 30 Septiembre 2008, 18:10 pm



Título: Clausula to x para varible de una ruta
Publicado por: DJmixmancar en 30 Septiembre 2008, 18:10 pm
hola , tengo un problema  :-\
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

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

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'

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

TAMBIEN CAMBIE
XValcod  por XVALCOD

esto es :
Microsoft Visual FoxPro 6.0


Título: Re: Clausula to x para varible de una ruta
Publicado por: ssccaann43 © en 30 Septiembre 2008, 18:23 pm
Hermano esto es Visual Basic 6.0


Título: Re: Clausula to x para varible de una ruta
Publicado por: BlackZeroX en 1 Octubre 2008, 03:39 am
cual te fumaste ?¿ ¬¬