Filtro em DBLoockComboBox
Oi Pessoal...
Meu estou precisando muito de vcs....é o seguinte:
Tenho uma tabela e quero quando filtrar o DBLoockCB1 aparecer as ocorrencias no DBLoockCB2 e depois de escolher o DBLoockCB2 aparecer apanas as referencias no DBLoockCB3... ISSO È POSSIVEL?
Vou explicar com exemplo: Na minha tabela tenho os campos:
Exportador
Produto
Destino
Quando eu escolher o DBLoockCB1(Exportador) vai aparecer no DBLoockiCB2(Produto) apenas deste exportador, e depois eu vou escolher no DBLoockCB3 (Destino) e aparecerá os destinos que tem o exportador e o produto que eu escolhi ai então eu escolho o destino....
É Possivel?
Agradeço desde ja quem se dispor a tirar essa duvida....
Paty
Meu estou precisando muito de vcs....é o seguinte:
Tenho uma tabela e quero quando filtrar o DBLoockCB1 aparecer as ocorrencias no DBLoockCB2 e depois de escolher o DBLoockCB2 aparecer apanas as referencias no DBLoockCB3... ISSO È POSSIVEL?
Vou explicar com exemplo: Na minha tabela tenho os campos:
Exportador
Produto
Destino
Quando eu escolher o DBLoockCB1(Exportador) vai aparecer no DBLoockiCB2(Produto) apenas deste exportador, e depois eu vou escolher no DBLoockCB3 (Destino) e aparecerá os destinos que tem o exportador e o produto que eu escolhi ai então eu escolho o destino....
É Possivel?
Agradeço desde ja quem se dispor a tirar essa duvida....
Paty
Tiquinha
Curtidas 0
Respostas
Fabio.hc
24/03/2004
Tente assim:
DBLookupComboBox1 -> Table1
DBLookupComboBox2 -> Query1 (´select * from tabela where campo=:param1´)
DBLookupComboBox3 -> Query2 (´select * from tabela2 where campo=:param2´)
DBLookupComboBox1 -> Table1
DBLookupComboBox2 -> Query1 (´select * from tabela where campo=:param1´)
DBLookupComboBox3 -> Query2 (´select * from tabela2 where campo=:param2´)
procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject); begin Query1.Close; Query1.Params[0].Value:=DBLookupComboBox1.KeyValue; Query1.Open; end; procedure TForm1.DBLookupComboBox2CloseUp(Sender: TObject); begin Query2.Close; Query2.Params[0].Value:=DBLookupComboBox2.KeyValue; Query2.Open; end;
GOSTEI 0