FoxPro/Visual FoxPro - ControlSource

 
Vista:

ControlSource

Publicado por Stok (79 intervenciones) el 12/05/2001 05:38:48
Alguien me puede decir cual es el error en el siguiente código?

set defa to c:\sistemaindice\Datos
close databases

Bases = 'mc'+trim(thisform.txtano.text)+trim(thisform.txtperiodo.text)

if .not. file (Bases + '.dbf')
* Messagebox("Archivo no Hallado")
thisform.estado.value="Archivo no hallado"
else
do form movimiento
movimiento.text1.controlsource=&Bases..cliente
movimiento.refresh
thisform.estado.value="Archivo hallado"
endif

el mensaje de error que me presenta es:

" No se encuentra el Alias NombreTabla(variable &Bases)"

Muchas Gracias

Sergio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ControlSource

Publicado por somind (57 intervenciones) el 12/05/2001 14:18:27
Personalmente yo utilizaría otra variable entre las dos primeras instrucciones, es decir, por ejemplo xx:

xx=alltrim(&Bases)+".dbf"

y por tanto:

if .not. file (xx)

Creo que te puede funcionar. Ya dirás algo.

Suerte y saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CON COMILLAS !!!!

Publicado por Jalbo (70 intervenciones) el 15/05/2001 19:57:48
Hola:
Me parece que el error está en el set defa, si la ruta tiene "nombres largos" debe ir entre comillas.

set defa to "c:\sistemaindice\Datos"

Espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar