FoxPro/Visual FoxPro - no me funciona una consulta porque??

hola amigos! necesito que me ayuden si es ke alguien sabe.. tengo el siguieten codigo pero no me funciona con la sentencia LIKE , porque?? el parametro de entrada , es lc desde un textbox .... bueno ahi me dicen... el codigo es el siguiente...

PUBLIC fila
LOCAL lc
Local array Vec(1)
lc=THISFORM.TEXT1.VALUE
*lc = "%" + lc1 + "%"

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE "%lc%" into array Vec

fila = 1

Thisform.lista.clear


Cargas = _tally
If cargas > 0
For j = 1 to cargas

THISFORM.lista.addListitem(Vec(j,1), fila, 1)
THISFORM.lista.addListitem(Vec(j,2), fila, 2)
THISFORM.lista.addListitem(VEC(J,3), fila, 3)
THISFORM.lista.addListitem(VEC(J,4), fila, 4)
THISFORM.lista.addListitem((VEC(J,5)), fila, 5)

fila = fila + 1
Next
endIf

Ya que el parametro va en una variable prueba algo como esto:

var="M"
selec * from tabla where campo like "&var%"

Fijate en el & en el like.

Si no te sale sigue escribiendo en el foro.
Saludos

Emmmm.. no me resulto , hice los cambios pero no me resulto , no entiendo.... aqui el codigo con los cambios ..pero no paso nada... espero que alguien ...pueda sacarme esta duda...

PUBLIC fila
LOCAL lc
Local array Vec(1)
lc1=THISFORM.TEXT1.VALUE
lc="lc1"

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE "&lc%" into array Vec

fila = 1

Thisform.lista.clear


Cargas = _tally
If cargas > 0
For j = 1 to cargas

THISFORM.lista.addListitem(Vec(j,1), fila, 1)
THISFORM.lista.addListitem(Vec(j,2), fila, 2)
THISFORM.lista.addListitem(VEC(J,3), fila, 3)
THISFORM.lista.addListitem(VEC(J,4), fila, 4)
THISFORM.lista.addListitem((VEC(J,5)), fila, 5)

fila = fila + 1
Next
endIf

En vez de lc="lc1" pone lc=lc1.

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE "&lc%" into array Vec

o tambien en tu caso no tienes que pasar el valor de la variable a otra variable.

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE "&lc1%" into array Vec

Hola!
deberías decir cual es el problema o error que tienes.
junatando lo que tienes con lo que te dijo roman por que no pruebas:
"%&lc%" ó lc1 según corresponda.
saludos
Uplift

Buenas,
una modificacion de tu consulta sería :

PUBLIC fila
LOCAL lc
Local array Vec(1)
lc=THISFORM.TEXT1.VALUE
lc = "%" + lc + "%"

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE &lc into array Vec

Saludos

tambien, recuerda quitarle los espacios en blanco de la derecha, es decir:

PUBLIC fila
LOCAL lc
Local array Vec(1)
lc=rtrim(THISFORM.TEXT1.VALUE )
lc = "%" + lc + "%"

SELECT nombre,apellido,especialidad,telefono,ciudad FROM curriculum WHERE especialidad LIKE &lc into array Vec

Saludos.

hola!! gracias por su ayuda amigos!! por fin me salio! cambie unas cosas que me dijieron.. y salio de la siguiente manera...

PUBLIC fila
LOCAL lc
Local array Vec(1)
lc=rtrim(THISFORM.TEXT1.VALUE)
lc = "%" + lc + "%"

SELECT nombre,apellido,especialidad,telefono,ciudad ;
FROM curriculum ;
WHERE especialidad LIKE lc into array Vec

sin el & antes del lc

de antemano gracias!!!