Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dados na tela
Message
From
22/10/2004 06:28:28
 
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Environment versions
Visual FoxPro:
VFP 6
OS:
Windows '98
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00953598
Message ID:
00953663
Views:
18
This message has been marked as the solution to the initial question of the thread.
>Como faço para que o resultado de um filtro nao apareça na tela do Fox?
>
>No meu formulario tenho um botao que é para acrescentar registros na tabela "ABONOS".
>
>O código do botao é:
>select 3
>append blank
>replace num_pedido with thisform.general.abonos.text.val
>replace fecha with date()
>set filter to abonos_num_ped = thisform.general.pedido.text1.val
>
>o problema é que o resultado do filtro aparece na tela e eu nao quero isso.
>
>Gustavo


Não fico claro com o "aparece na tela". Será que vc precissa um SET TALK OFF?

Respeito aó programa, eu mudaria:

>select 3
Issto não é uma forma correta de escrever ja que não e auto-documentada.
Que tabela está na area 3? É sempre a mesma? Como sabe um novo desenvolvedor que 'herede' o programa no futuro?
A forma correta e: SELECT Abonos (sempre usar o ALIAS)

>append blank
>replace num_pedido with thisform.general.abonos.text.val
>replace fecha with date()


É mais rápido fazer so um Replace.
replace num_pedido with thisform.general.abonos.text.val, ;
replace fecha with date()
ou melhor usar INSERT INTO

Porque usar SET FILTER?
É sempre melhor usar uma pesquisa (SQL).

Não é também correto usar o THISFORM no Filter. Quando o form não exista em memoria, o filter dará um erro por não ter uma referencia ao form.

HTH


Alex Feldstein, MCP, Microsoft MVP
VFP Tips: English - Spanish
Website - Blog - Photo Gallery


"Once again, we come to the Holiday Season, a deeply religious time that each of us observes, in his own way, by going to the mall of his choice." -- Dave Barry
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform