PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Filter do delphi #497768

14/10/2014

0

Boa tarde amigos

Eu sou novo em programação, estou tentando fazer um filtro no clientdataset em um campo integer que pode ter um numero, ou varios numero como no exemplo abaixo

Ex: quero selecionar todos os registro com o numero 1102 e 2102 etc..., quando é apenas um eu consigo quando é mais de um não consegui se alguem puder me ajudar eu agradeço segue o código que eu montei.

procedure TForm2.CheckListBox1ClickCheck(Sender: TObject);
var i : Integer; filtro : string;

begin
filtro := '';
for I := 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[i] then
begin
if filtro = '' then
begin
filtro := CheckListBox1.Items[i];
end
else
begin
filtro := filtro + ',' + CheckListBox1.Items[i];
end;
end;
end;
if filtro = '' then
CDS_capa_item.Filter := ''
else
begin
CDS_capa_item.Filtered := False;
CDS_capa_item.Filter := 'IdCodFiscal = ' + QuotedStr(filtro); //<- assim funciona mais so pega um numero
// CDS_capa_item.Filter := 'IdCodFiscal in (' + QuotedStr(filtro) + ')'; //<- assim não funciona
CDS_capa_item.Filtered := True;
end;
end;
Alexandre Assis

Alexandre Assis

Responder

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

Aceitar