Categorías destacadas
Código Fuente
|
Buscar coincidencias dentro de una cadena |
SELECT ALIAS()
GO TOP
SCAN FOR LIKE('*'+UPPER(ALLTRIM(THISFORM.Text1.Value))+'*',UPPER(&cdato))
IF MESSAGEBOX([Descripción :]+&cdato+CHR(13)+CHR(13)+;
[¿ Desea Continuar Buscando... ?],36,[Confirme])=6
thisform.Refresh()
ELSE
thisform.Refresh()
EXIT
ENDIF
ENDSCAN
IF EOF()
IF MESSAGEBOX([No se encontrarón mas coincidencias, vuelva a intentarlo...]+CHR(13)+;
[ ¿ Desea ir al principio de la Tabla ? ],36,[Aviso])=6
GO TOP
ELSE
GO BOTTOM
ENDIF
ENDIF
thisform.Refresh()
 |
Escrito por: Angel Castiglia |
|
|
Comentarios
Anónimo dice:
RUSO
15/08/2008, a las 22:21:43
Anónimo dice:
Lå$ Gåµþ$ pø® $ìemp®e »‡±
08/11/2007, a las 14:52:19
Últimas noticias
· factura
Últimos artículos
