procedure TSendInfoForm.FiltercxGridTableView(FildName, FilterValue: String); begin with cxgridtvSendInfo, DataController.Filter do begin BeginUpdate; try Root.Clear; Root.AddItem(cxgridtvSendInfo.GetColumnByFieldName(FildName), foEqual, FilterValue, FilterValue); if not Active then Active:=true; finally EndUpdate; end; end; end;
begin
with cxgridtvSendInfo, DataController.Filter do
begin
BeginUpdate;
try
Root.Clear;
Root.AddItem(cxgridtvSendInfo.GetColumnByFieldName(FildName), foEqual, FilterValue, FilterValue);
if not Active then
Active:=true;
finally
EndUpdate;
end;
end;
end;