DBCombobox ou Combobox ou DBLookupCombobox
Como pegar os dados de uma tabela e colocar dentro de um DBCombobox, ou um Combobox (não sei se tem jeito) ou ainda um DBLookupCombobox!! Só preciso mostrar e deixar ele selecionar qual dado ele quer em um combo!!!
Obrigado.
Obrigado.
Vccarvalho
Curtidas 0
Respostas
Ivonei
09/09/2003
Tenho esta rotina que já usei uma vez. Adicona os registros da tabela nos items de um combobox.
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Clear; ///Exclui todos os itens do combo
table1.Active:=true;
Table1.First;
While not (Table1.Eof) do //Adiciona os dados campo no combo
begin
ComboBox1.Items.Add(Table1.FieldByName(´Cod_Emp´).AsString);
Table1.Next;
end;
end;
PS: Usar o evento DropDown garante que o combo esteja sempre atualizado quando a lista for baixada, mas se a tabela nunca sera´ modificada nesse form, entao vc. pode usar o OnShow dele mesmo.
Se for poucos registros, você pode usar o DBLookupCombobox.
Até +
:wink:
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Clear; ///Exclui todos os itens do combo
table1.Active:=true;
Table1.First;
While not (Table1.Eof) do //Adiciona os dados campo no combo
begin
ComboBox1.Items.Add(Table1.FieldByName(´Cod_Emp´).AsString);
Table1.Next;
end;
end;
PS: Usar o evento DropDown garante que o combo esteja sempre atualizado quando a lista for baixada, mas se a tabela nunca sera´ modificada nesse form, entao vc. pode usar o OnShow dele mesmo.
Se for poucos registros, você pode usar o DBLookupCombobox.
Até +
:wink:
GOSTEI 0
Vccarvalho
09/09/2003
Valeu amigo, funcionou!!!
Só acho que já vi isso há tempos atrás de uma forma ´melhor implementada´!!
Mas a sua ajuda valeu 100¬...
:wink:
Só acho que já vi isso há tempos atrás de uma forma ´melhor implementada´!!
Mas a sua ajuda valeu 100¬...
:wink:
GOSTEI 0