Programación General > Visual FoxPro

 Enlazar Textos

(1/2) > >>

Widark:
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 ---CLOSE DATABASESstrRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')IF LEN(strRuta) > 0  strTabla = '"' + strRuta + '"'  USE &strTabla IN 0  PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda  Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto  strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)  ThisForm.txtEtiqueta.ControlSource = &strTablaSola.etiqueta  ThisForm.txtNomcampo.ControlSource = &strTablaSola.nomcampo  ThisForm.TxtTamcampo.ControlSource = &strTablaSola.tamcampoENDIF  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

Widark:
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 ---CLOSE DATABASESstrRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')IF LEN(strRuta) > 0  strTabla = '"' + strRuta + '"'  USE &strTabla IN 0  PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda  Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto  strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)  ThisForm.txtEtiqueta.ControlSource = strTablaSola + ".etiqueta"  ThisForm.txtNomcampo.ControlSource = strTablaSola + ".nomcampo"ENDIF 

Cyclop:
????? ... Hay un clon en este foro!!!!!!!!!!!!!!

 :D  Jejejejejeje

Salu2

Cyclopz

Widark:
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.

Cyclop:
Prueba con esto:


--- Código: Text --- With ThisForm     .LockScreen=.T.     .Refresh()     .LockScreen=.F.EndWith  
Salu2

Cyclopz

Navegación

[0] Índice de Mensajes

[#] Página Siguiente