(Resolvido) DBCombos interligados

[Gabriel Cabral]

Bom dia galera

é o seguinte...

em um cadastro de produtos, tenho 4 DBCombos para selecionar os códigos dos fornecedores

para popular esses dbcombos com os códigos dos registros da tabela de fornecedores, faço da seguinte maneira:

cboCadPro_CodForn1.Items.Clear;
  cboCadPro_CodForn2.Items.Clear;
  cboCadPro_CodForn3.Items.Clear;
  cboCadPro_CodForn4.Items.Clear;
  dm.tblCadForn.First;

  while dm.tblCadForn.Eof = False do
  begin
    cboCadPro_CodForn1.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
    cboCadPro_CodForn2.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
    cboCadPro_CodForn3.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
    cboCadPro_CodForn4.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
    dm.tblCadForn.next;

Mas, supondo que existam os códigos 00001, 00002, 00003 e 00004

Se eu selecionar o 00001 no CodForn1, ele não pode estar nos outros dbcombos..

aí se eu selecionar 00003 no CodForn2, ele não pode estar nos outros dbcombos..

e assim por diante...

alguém consegue me ajudar??

alguma dica??

Obrigado

[Jhonas]

em um cadastro de produtos, tenho 4 DBCombos para selecionar os códigos dos fornecedores

Porque não usar apenas um DBCombox... não vejo necessidade de usar 4... explique melhor a sua idéia.

abraço

[Gabriel Cabral]

Porque preciso escolher 4 fornecedores diferentes!!!

[Jhonas]

então porque voce não usa o DBLookupComboBox ?

Embora os valores estejam repetidos neles, ao selecionar um código cada um deles estará apontando para o registro selecionado e voce poderá usá-los como bem entender.

abraço

[Gabriel Cabral]

Consegui, galera....

acho que depois dessas duas semaninhas de férias, eu voltei com todo gás :lol:

ficou dessa maneira..

procedure TfrmCadPro.cboCadPro_CodForn1Enter(Sender: TObject);
begin

  cboCadPro_CodForn1.Items.Clear;
  dm.tblCadForn.First;

  while not (dm.tblCadForn.Eof) do
  begin
    if (cboCadPro_CodForn2.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn3.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn4.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) then
    begin
      cboCadPro_CodForn1.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
      dm.tblCadForn.next;
    end
    else dm.tblCadForn.next;
  end;

end;

procedure TfrmCadPro.cboCadPro_CodForn2Enter(Sender: TObject);
begin

  cboCadPro_CodForn2.Items.Clear;
  dm.tblCadForn.First;

  while not (dm.tblCadForn.Eof) do
  begin
    if (cboCadPro_CodForn1.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn3.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn4.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) then
    begin
      cboCadPro_CodForn2.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
      dm.tblCadForn.next;
    end
    else dm.tblCadForn.next;
  end;

end;

procedure TfrmCadPro.cboCadPro_CodForn3Enter(Sender: TObject);
begin

  cboCadPro_CodForn3.Items.Clear;
  dm.tblCadForn.First;

  while not (dm.tblCadForn.Eof) do
  begin
    if (cboCadPro_CodForn1.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn2.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn4.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) then
    begin
      cboCadPro_CodForn3.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
      dm.tblCadForn.next;
    end
    else dm.tblCadForn.next;
  end;

end;

procedure TfrmCadPro.cboCadPro_CodForn4Enter(Sender: TObject);
begin

  cboCadPro_CodForn4.Items.Clear;
  dm.tblCadForn.First;

  while not (dm.tblCadForn.Eof) do
  begin
    if (cboCadPro_CodForn1.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn2.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) and
    (cboCadPro_CodForn3.text <> dm.tblCadForn.FieldByName('FORCOD').AsString) then
    begin
      cboCadPro_CodForn4.Items.Add(dm.tblCadForn.FieldByName('FORCOD').AsString);
      dm.tblCadForn.next;
    end
    else dm.tblCadForn.next;
  end;

end;

Muito obrigado!!!