Fórum ComboBox #166364

25/06/2003

0

Gostaria de filtrar dados na tabela e jogar os dados filtrados dentro de uma ComboBox, por exemplo quero filtrar todos os campos que possuem a letra ´A´ e listar dentro de uma combobox... alguem poderia me ajudar


Dinho_sc

Dinho_sc

Responder

Posts

26/06/2003

Rômulo Barros

Faz um laço na tua tabela e vá adicionando todos os campos q vc quer em um listbox. Depois, só é passar do listbox para a propriedade items do comboBox......

Var Teste : TlistBox;
arm : String;
Begin
Teste := tListBox.Create(nil);
While Not(tabela.eof) do
Begin
arm := tabela.fieldbyname(´campo´).asString;
If(copy(arm,1,1)=´a´)then
Begin
Teste.items.add(arm);
End;
tabela.next;
End;
combobox.items := Teste.items;
End;


Responder

Gostei + 0

26/06/2003

Polo

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



Responder

Gostei + 0

26/06/2003

Polo

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



Responder

Gostei + 0

26/06/2003

Polo

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



Responder

Gostei + 0

26/06/2003

Polo

Foi mal a quantidade de post...tava dando erro quando estava tentando postar...moderadores podem excluir essa e as outras duas respostas...
8)


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar