buskeda en fox pro

[Juez]

k tal amigos tengo una pantalla k no está predeterminada a ninguna tabla ni base de datos esto lo hice para poder revisar cualkier tabla en cualkier base de datos. entonces ya la tablas la puedo abrir en el grid de la siguiente forma:
sele 1
with thisform
xtabla = allt(.text4.text)
USE &xtabla SHARED IN 0
.grid1.recordsource = xtabla
.grid1.refresh

ahora bien lo k necesito k me ayuden es a realizar una buskeda dentro de una tabla sin ningun campo predeterminado, es decir en un text colocar el nombre del campo k necesito buscar y en otro text colocar lo k voy a buscar. Lo he intentado de la siguiente forma: pero lo único k hace es llevarme el cursor al último registro
.WITH thisform
xtabla = allt(.text4.text)
LOCATE FOR (alltrim(.text2.text) = alltrim(.text3.text)) NOOPTIMIZE
.grid1.setfocus
endwith


muy agradecido por su atención,
saludos

[Jorge_Mota]

intenta
WITH thisform
ctabla = allt(.grid1.recordsource)
cCampo = "aca va el nombre del campo"
&& seria algo como
* cCampo = .text2.text
&&puedes sacar el listado de campos con aFields y agregarlos a un combo
cValor = .Text3.value
cCad = "SElect * from " + alltrim(cTabla) + " Where alltrim(trans(" + cCAmpo+"))=["+alltrim(trans(cValor))+"] into cursor cBusqueda"
&cCAd
.grid1.recordsource = "cBusqueda"
.grid1.setfocus
endwith