Fórum Listar Contas dos Bancos em uma DBLookUpCombobox em outra??? #154029
10/04/2003
0
Tenho duas DBLookUpCombobox.
A primeira Lista o Nome de Todos os Bancos. Ex:
DBLookUpComboboxBancos possui:
´Bradesco´
´Banco do Brasil´
´ITAU´
E passa o Codigo do Banco!
A segunda Lista o Nº das contas de Todos os Bancos. Ex:
DBLookUpComboboxNumeroConta possui:
´12345-6´
´44445-6´
´99999-0´
Que possui o Codigo do Banco em cada registro!
Só que no exemplo, as contas do Bradesco são:
´12345-6´
´44445-6´
E a conta do ITAU é:
´99999-0´
Alguém sabe como utilizar as Propriedades de MasterSource e MasterFiels para a segunda ´DBLookUpComboboxNumeroConta´ liste somente as contas do Banco selecionado na primeira ´DBLookUpComboboxBancos´???
Espero uma resposta.
Obrigado.
A primeira Lista o Nome de Todos os Bancos. Ex:
DBLookUpComboboxBancos possui:
´Bradesco´
´Banco do Brasil´
´ITAU´
E passa o Codigo do Banco!
A segunda Lista o Nº das contas de Todos os Bancos. Ex:
DBLookUpComboboxNumeroConta possui:
´12345-6´
´44445-6´
´99999-0´
Que possui o Codigo do Banco em cada registro!
Só que no exemplo, as contas do Bradesco são:
´12345-6´
´44445-6´
E a conta do ITAU é:
´99999-0´
Alguém sabe como utilizar as Propriedades de MasterSource e MasterFiels para a segunda ´DBLookUpComboboxNumeroConta´ liste somente as contas do Banco selecionado na primeira ´DBLookUpComboboxBancos´???
Espero uma resposta.
Obrigado.
A24
Curtir tópico
+ 0
Responder
Posts
10/04/2003
Anonymous
Eu uso TQuery e não TTable. No seu exmplo em questão eu teria os SQLs abaixo para as querys:
Query1.Text := ´SELECT * FROM TB_BANCOS´;
Query1.Open;
Query2.Text := ´SELECT * FROM TB_CONTAS WHERE CODBANCO=:CODBANCO´;
Query2.ParamByName(´CODBANCO´).AsString := Query1.FieldByName(´CODBANCO´).AsString;
Query2.Open;
O fragmento de código da query2 eu colocaria ou no evento ONCHANGE do DBLookupCombo de Bancos ou no evento ONSCROLL da Query1 (ou seja, quando se mudasse de registro).
Não sei se ajuda...
Query1.Text := ´SELECT * FROM TB_BANCOS´;
Query1.Open;
Query2.Text := ´SELECT * FROM TB_CONTAS WHERE CODBANCO=:CODBANCO´;
Query2.ParamByName(´CODBANCO´).AsString := Query1.FieldByName(´CODBANCO´).AsString;
Query2.Open;
O fragmento de código da query2 eu colocaria ou no evento ONCHANGE do DBLookupCombo de Bancos ou no evento ONSCROLL da Query1 (ou seja, quando se mudasse de registro).
Não sei se ajuda...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)