Como pesquisar em campos de Lookup
Como pesquisar em campos de Lookup (BD Paradox).
Ja tentei utilizando o campo verdadeiro que contém o ResultList Utilizado no Lookup mas quando eu fecho o form de pesquisa o campo de loockup do Form principal continua em branco.
Como Fazer?
Desde já Agradeço.
Ja tentei utilizando o campo verdadeiro que contém o ResultList Utilizado no Lookup mas quando eu fecho o form de pesquisa o campo de loockup do Form principal continua em branco.
Como Fazer?
Desde já Agradeço.
Scardoso
Curtidas 0
Respostas
Maxsoftware
25/11/2003
Na propriedade do listfield , keyfield (Campo produto);
listsource:= dsproduto
procedure T_est.DBLookupComboBox1Click(Sender: TObject);
begin
_dm.ibqpro.close;
_dm.ibqpro.sql.clear;
_dm.ibqpro.sql.add(´select COD_FORN, CODIGO, PRODUTO from PRODUTOS ORDER BY PRODUTO´);
_dm.ibqpro.open;
Espero que ajude....
Max...
listsource:= dsproduto
procedure T_est.DBLookupComboBox1Click(Sender: TObject);
begin
_dm.ibqpro.close;
_dm.ibqpro.sql.clear;
_dm.ibqpro.sql.add(´select COD_FORN, CODIGO, PRODUTO from PRODUTOS ORDER BY PRODUTO´);
_dm.ibqpro.open;
Espero que ajude....
Max...
GOSTEI 0