|
Bueno la cosa sería algo así:
procedure TfrDatosApli.TbEquFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := true;
//pongo las condiciones para el filtro
if Accept then
NumRegistros := NumRegistros + 1;
//NumRegistros es la variable donde voy guardando los registros que cumplen la condición. La inicializo a cero antes de filtrar la tabla.
end;
Lo que necesito saber es cuantos registros cumplen la condición, si hay alguna otra forma que no consuma mucho tiempo tampoco me importa.
|