[Resolvido] Filtro usando componentes DEVExpress

[Ilano 0]

Olá pessoal,

 

Estou usando componentes da DEVExpress, excelente por sinal, mas estou tendo problemas ao tentar realizar um filtro baseado neste post. A situação é a seguinte:

 

Tenho um dxMenData e estou tentando usar o código abaixo:

 

 

procedure TForm1.AplicarFiltro;

var

AItemList: TcxFilterCriteriaItemList;

begin

cxGrid1DBTableView1.DataController.Filter.BeginUpdate;

 

Try

cxGrid1DBTableView1.DataController.Filter.Root.Clear;

AItemList := cxGrid1DBTableView1.DataController.Filter.Root.AddItemList(foEqual);

AItemList.AddItem(cxGrid1DBTableView1.Columns[1].DataBinding.Field,foEqual,0,QuotedStr(AnsiUpperCase(Trim(LbNomeTabela.Caption))));

 

Finally

cxGrid1DBTableView1.DataController.Filter.EndUpdate;

cxGrid1DBTableView1.DataController.Filter.Active := True;

 

End;

 

end;

 

 

O erro está acontecendo na linha em vermelho.

 

Como posso resolver este problema?

 

Grato,

 

Ilano.

 

Encontrei a resposta. Meu código agora ficou assim:

 

 

procedure TForm1.AplicarFiltro;

var

AItemList: TcxFilterCriteriaItemList;

begin

cxGrid1DBTableView1.DataController.Filter.BeginUpdate;

 

Try

cxGrid1DBTableView1.DataController.Filter.Root.Clear;

AItemList := cxGrid1DBTableView1.DataController.Filter.Root.AddItemList(fboOr);

AItemList.AddItem(cxTabela, foEqual, AnsiUpperCase(Trim(LbNomeTabela.Caption)), AnsiUpperCase(Trim(LbNomeTabela.Caption)));

Finally

cxGrid1DBTableView1.DataController.Filter.EndUpdate;

cxGrid1DBTableView1.DataController.Filter.Active := True;

 

End;

 

end;