mabzerox
21 de Junio del 2005

En un formulario tengo los campos de la tabla en la cual tenfo un campo llamado codigo tengo los botones anterior, siguiente, primero y ultimo pero el problema es con el boton buscar. Hice un contenedor adentro de el puse un cuadro de texto y el boton buscar. En las propiedades del cuadro de texto en Name= txtbuscar. Las propiedades del boton buscar estan de esta manera Caption=buscar Name=Buscar.
Programe el boton de esta manera:
buscar= 0

buscar=VAL(THISFORM.CONTAINER1.txtbuscar.VALUE)

SEEK buscar ORDER TAG codigo;

OF 聭C:MarcoDatosmatutino.cdx聮

IF !FOUND()

ctexto = 'Registro no encontrado. 驴Desea buscar de nuevo?'

ntipodedialogo = 4 + 32 + 256

ctitulo = 'Mensaje'

* 4 = Botones S铆 y No.

* 32 = Icono del signo de interrogaci贸n.

* 256 = El segundo bot贸n es el predeterminado.

nrespuesta = MESSAGEBOX(ctexto, ntipodedialogo, ctitulo)

DO CASE

CASE nrespuesta = 6

THISFORM.CONTAINER1.txtbuscar.SETFOCUS()

CASE nrespuesta = 7

THISFORM.cmdsalir.SETFOCUS()

ENDCASE

ELSE

THISFORM.REFRESH

ENDIF
**************************************************************************
Al correrlo y precionar el boton buscar para que busque el codigo que especificas en el cuadro de texto me dice: TXTBUSCAR es un miembro desconocido y tambien hay un problema con el Indice.
Hay otra forma de programarlo?
gracias

sgomez
21 de Junio del 2005

A esta linea le ten茅s que sacar el parentesis:
antes: THISFORM.CONTAINER1.txtbuscar.SETFOCUS()
despues:THISFORM.CONTAINER1.txtbuscar.SETFOCUS

Y la sintaxis para buscar en una tabla con indice es:

use tabla order NombreIndice
if SEEK (buscar,"tabla","NombreIndice")
messagebox("Se Encontro")
else
messagebox("No se encontro")
endif