Atualizar e Limpar DBLookupCombobox

Question

Ol� a todos...Estou com uma d�vida que creio que seja simples para vcs, mas pra mim tah me deixando louco... Possuo 3 DBLookupCombobox, um para Clientes, outro para Produtos e outro para Departamentos...

Paullsoftware · Answer

qual banco voc� est� usando e quais componentes DataWare??

no evento OnCloseUp do DdLookupClientes voc� faz o preenchimento dos outros dois lookup acho que isso resolve seria mais ou menos assim;

with CdsProdutos do//diminuindo o c�digo
begin
Close;
CommandText := �select * from produtos where CodCliente=�+IntToStr(DbLookupClientes.KeyField);
Open;
//e para limpar os dados do componente vc faz:
DbLookupProdutos.KeyField := 0;
end;
sendo assim sempre que voc� mudar o cliente vai atualizar a lista de produtos...
espero ter ajudado :wink:

Ramms · Answer

Atualizar ele atualiza, s� que n�o limpa o que est� ativo entende?
Uso DBExpress e Firebird 1.5.

Tem alguma id�ia, vou testar mas j� tinha pensando em montar assim, n�o � do jeito certo e nem do que qro heheheheheh..

Obrigado.

Marcio.theis · Answer

Vai na tabela no campo COD_CLIENTE no evento OnChange, e coloque algo do tipo:

tblClienteCOD_PRODUTO.AsString:=��;
tblClienteCOD_DEPARTAMENTO.AsString:=��;

Ou seja, quando efetuar o change do campo, o mesmo vai limpar os registros...

Ramms · Answer

Era isso mesmo que eu precisava Marcio, obrigado.Obrigado tbm Paul...

F�rum Atualizar e Limpar DBLookupCombobox #333473