Ver Mensaje Individual
  #5  
Antiguo 24-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por tiqui_loquito Ver Mensaje
Hola ecfisa

Tengo una inquietud

A la propiedad Tag le asigno el Total de registros. Por lo tanto, Tag tendría el mismo valor de RecorCount, entonces a la hora de imprimir tendrían los mismos valores y no el total de registros filtrados.
No, por que el valor de la propiedad RecordCount no debería ser el mismo luego de la aplicación de un filtro que seleccione parte del conjunto de registros.

Un ejemplo funcional sobre la tabla country que trae Delphi:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.Open;
  Caption := Format('Total de registros: %d',[ClientDataSet1.RecordCount]);
end;

procedure TForm1.CheckBoxFiltrarClick(Sender: TObject);
var
  cds: TClientDataSet;
begin
  cds := ClientDataSet1;
  cds.Filtered := False;
  cds.Tag      := ClientDataSet1.RecordCount;
  Memo1.Lines.Clear;
  if TCheckBox(Sender).Checked then
  begin
    cds.Filter   := Format('CONTINENT = %s',['''South America''']);
    cds.Filtered := True;
    Memo1.Lines.Add(Format('Total registros: %d',[cds.Tag]));
    Memo1.Lines.Add(Format('Total filtrados: %d',[cds.RecordCount]));
    Memo1.Lines.Add(Format('Total ocultos  : %d',[cds.Tag - cds.RecordCount]));
  end;
end;

Salida:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita