Ana_kiehl
08 de Mayo del 2005

quiero realizar una busqueda y tngo el siguiente codigo :
IF NOT EMPTY(ThisForm.Text1.value)
select articulos
set filte to ALLTRIM(ThisForm.Text1.value) $ nombre
COUNT ALL FOR ALLTRIM(ThisForm.Text1.value) $ nombre TO A
ThisForm.Text2.value=ALLTRIM(STR(A))
select articulos
GO TOP
THISFORM.REFRESH
ELSE
WAIT WIND "Ingrese datos para consultar..." nowait
ENDIF

pero cuando le doi enter me aparece en grid pero sin ningun registro , porque ?

SAM
08 de Mayo del 2005

IF NOT EMPTY(ThisForm.Text1.value)
select articulos
set filter to nombre=ALLTRIM(This.value)
COUNT ALL FOR ALLTRIM(ThisForm.Text1.value)
ELSE
WAIT WIND "Ingrese datos para consultar..." nowait
ENDIF
THISFORM.REFRESH
saludos si no te sale escribeme y te envo unos ejemplos super