2008/11/12 luislact <[EMAIL PROTECTED]>:
> Boa tarde pessoal. estou tentando migrar aos poucos do uso da table
> para query com paradox e estou tendo algumas dificuldades. Sei que
> muitos vao dizer para nao usar o paradox e coisa e tal mas no momento
> não tenho muita alternativa. Hoje uso uma pesquisa no campo
> edit1.text e nessa pesquisa uso Table1.FindNearest([Edit1.Text]); ..
> isso me localiza o registro que quero em uma dbgrid. Com isso eu
> posso pesquisar o cliente e no evento afterscroll da table consigo
> fazer com que o nome do cliente apareça completo com o cnpj em
> edit1.text e edit2.text. Agora vem o meu maior problema .. não
> consigo fazer isso com a query. Hoje consigo localizar atraves da
> select sem problema mas não consigo fazer com que ao "passear" pela
> dbgrid o nome e o cnpj do cliente apareça nos respectivos edit1 e
> edit2. Não posso usar dbedit nesse caso. Agradeço alguma ajuda sobre
> o assunto.
>
> procedure TFormCadaOrca.Table2AfterScroll(DataSet: TDataSet);
> begin
> edit50.Text := Table2.fieldbyname('descricaoitem').AsString;
> combobox3.Text := Table2.fieldbyname('und').AsString;
> edit51.Text := Table2.fieldbyname('pesoitem').AsString;
> edit52.Text := Table2.fieldbyname('valorkg').AsString;
> end;Se você está fechando e abrindo a busca após o select, talvez deva utilizar o evento AfterOpen. É o que eu utilizo com o Zeus. -- Leodinei Bielak http://leodinei.blogspot.com/ "The whole point of getting things done is knowing what to leave undone."
