>
>entendeu ? mais não pode aparesser os registros deletados, pode me ajudar ?
>
Não entendi bem.. Mas se tu queres excluir registros deletados de alguma consulta (que por alguma razão estão lá) é só incluir a exepressão: FOR ... AND NOT DELETED()
>
>ou coisa meu amigo, vc tem um rotina para filtro que procure por qualquer campo de uma tabela ?
>
Ai vai.. Para usar no valid ou no interativechange de um textbox:

If  empty(this.value)
    Return
Endif
sele mytable
wreco=recno()
wtotalfields=alen(actb_campos,1)
wkwork=""
For i = 1 to wtotalfields
    If  !empty(wkwork)
        wkwork=wkwork+"+"
    Endif
    If  actb_campos[i,2]$"CM"  && campo é caracter e memo
        wkwork=wkwork+"upper("+actb_campos[i,1]+")"
    Endif
    If  actb_campos[i,2]$"NIY" && campo é numerico, inteiro e numero
        wkwork=wkwork+"str("+actb_campos[i,1]+","+str(actb_campos[i,3],3,0)+","+str(actb_campos[i,4],3,0)+")"
    Endif
    If  actb_campos[i,2]$"D"  && campo é data
        wkwork=wkwork+"dtoc("+actb_campos[i,1]+")"
    Endif
    If  actb_campos[i,2]$"T"  && campo é datetime
        wkwork=wkwork+"ttoc("+actb_campos[i,1]+")"
    Endif
Endfor
Loca all for upper(allt(this.value))$&wkwork
If  !found()
    wait window "Não encontrado: "+allt(this.value)+ " algum !!" nowait
    Go wreco
Else
    wait window nowait "localizado no registro:"+str(recno())
    go wreco
    *
Endif

>Brasil 3 Belgica 1
>
errado: BRASIL 2 BELGICA 0 - no sufoco :O

Espero que ajude !!

Claudio