csanchez
05 de Marzo del 2005

quiero hacer una uncion de busqueda para varios de mis formularios entonces pense que podia guardar en variables los nombres de los campos, las tablas y el string de lo que voy a buscar. Anexo el odigo de lo que queria hacer para ver si mel o pueden corregir de manera que funcione:

FUNCTION buscar
LPARAMETERS cBus,cCampo
&& cbus=string a buscar, cCampo=campo en donde buscar
SELECT codequip,nombequip,modequip,fabrican FROM descrequip WHERE (cCampo)= cBus INTO CURSOR busq
IF _Tally>0
SELECT Busq
LIST
ELSE
MESSAGEBOX('No se encuentra el equipo')
ENDIF
ENDFUNC

no he logrado que funcione le meto elementos en la funcion que existen en la tabla y no me da resultado. El list es solo para ver si guardo los campos que quiero en la tabla en memoria.

Agradesco de antemano su ayuda

Kely
05 de Marzo del 2005

Cuando llames a la funcion, bebes hacerlo asi:

Buscar(cCampo,'cBus')

* El el LOAD del Formulario pon
SET PROCEDURE TO Nombre de la Funcion (.prg)

csanchez
05 de Marzo del 2005

ya probe poner las variables entre parentesis solas y siempre el _tally= 0