SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: Widark en Miércoles 13 de Julio de 2005, 02:33

Título: Enlazar Textos
Publicado por: Widark en Miércoles 13 de Julio de 2005, 02:33
Qu tal!!!!

Quisiera saber como puedo enlazar textos con una tabla que el usuario escoje (con getdir, no esta en un combo)  si juez ve esto diria: "Yo no te envien un ejemplo que hace eso" o bueno algo parecido, lo que pasa es que no vi nada con textos solo con el grid esto es lo que he intentado:

Código: Text
  1. CLOSE DATABASES
  2. strRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')
  3. IF LEN(strRuta) > 0
  4.   strTabla = '"' + strRuta + '"'
  5.   USE &strTabla IN 0
  6.   PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda
  7.   Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto
  8.   strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)
  9.   ThisForm.txtEtiqueta.ControlSource = &strTablaSola.etiqueta
  10.   ThisForm.txtNomcampo.ControlSource = &strTablaSola.nomcampo
  11.   ThisForm.TxtTamcampo.ControlSource = &strTablaSola.tamcampo
  12. ENDIF
  13.  
tambien lo intente sin el & y no funciona. Sera que puedo cargar cualquier tabla en el dataenvironment, cualquier comentario me ayudaria mucho, muchas gracias. Saludos
Título: Re: Enlazar Textos
Publicado por: Widark en Jueves 14 de Julio de 2005, 00:18
Hola Widark!

Estube buscando en la web lo que tu no hiciste :angry:, y modifique tu codigo aqui esta es tan facil que deberia darte pena:
Código: Text
  1. CLOSE DATABASES
  2. strRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')
  3. IF LEN(strRuta) > 0
  4.   strTabla = '"' + strRuta + '"'
  5.   USE &strTabla IN 0
  6.   PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda
  7.   Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto
  8.   strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)
  9.   ThisForm.txtEtiqueta.ControlSource = strTablaSola + ".etiqueta"
  10.   ThisForm.txtNomcampo.ControlSource = strTablaSola + ".nomcampo"
  11. ENDIF
  12.  
Título: Re: Enlazar Textos
Publicado por: Cyclop en Jueves 21 de Julio de 2005, 22:46
????? ... Hay un clon en este foro!!!!!!!!!!!!!!

 :D  Jejejejejeje

Salu2

Cyclopz
Título: Re: Enlazar Textos
Publicado por: Widark en Viernes 22 de Julio de 2005, 02:05
jejeje, creo que si.

Ahora me invade otro problema, ya los enlace pero cuando me muevo adelante o atrás no me lo refleja en los text, que sera  :(, cualquier comentario es bienvenido, muchas gracias.
Título: Re: Enlazar Textos
Publicado por: Cyclop en Viernes 22 de Julio de 2005, 23:23
Prueba con esto:

Código: Text
  1.  
  2. With ThisForm
  3.      .LockScreen=.T.
  4.      .Refresh()
  5.      .LockScreen=.F.
  6. EndWith
  7.  
  8.  

Salu2

Cyclopz
Título: Re: Enlazar Textos
Publicado por: Widark en Sábado 23 de Julio de 2005, 16:17
Gracias Cyclop, me imagino que cada vez que me quiera mover entre registros tendre que hacer esto, muchas gracias de nuevo. :rain: