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;
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)