Código Delphi [-] procedure TForm1.FiltrarTabla(Valor: integer); begin with Productos do begin Filtered:= False; Filter:= 'ID= ' + IntToStr(Valor); Filtered:= True; end; end;
procedure TForm1.FiltrarTabla(Valor: integer); begin with Productos do begin Filtered:= False; Filter:= 'ID= ' + IntToStr(Valor); Filtered:= True; end; end;