Populando combobox com filtro

[Renanbg 1]

Pessoal,

 

eu usava esse codigo no evento de show do form pra popular um combo com apenas os itens ativo da tabela paradox

 

frmdm.tbnomeprojeto.Filter := 'STATUS = ''ATIVO''';
frmdm.tbnomeprojeto.Filtered:= true;

  With frmdm.tbnomeprojeto do
  begin
  Comboprojeto.Items.Add('SEM PROJETO');
   while not eof do
    begin
    Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
    Next;
   end;
   end;

 

Funcionava super bem. Agora que miguei pra firebird, mudei a parte do ativo para o codigo abaixo, senão não funcionava.

 

'+QuotedStr('ATIVO')

 

Problema: Na primeira vez que entro no form traz tudo certinho. Agora, basta fechar em entrar nele novamente que traz apenas o item SEM PROJETO

 

Alguem sabe o que pode ser feito?

[Meneguci 1]

Já tentou dar um "first" na query antes de iniciar o laço?

With frmdm.tbnomeprojeto do
  begin
  Comboprojeto.Items.Add('SEM PROJETO');
  First;     
   while not eof do
    begin
    Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
    Next;
   end;
   end;

[Renanbg 1]

Olá Meneguci,

 

Não teve jeito. Mudei o dialect do banco para 1 e então funcionou.