Tá Dificil - Que saudade da Máquina de Escrever !!!
Preciso contar a quantidade de registros que existem em um relatório e mostrar num QRExpression no próprio relatório.
O campo a ser contado é do tipo alpha.
EX.: Cadastro de Clientes. Faço um filtro por UF e peço um preview. No campo deverá aparecer quantos cadastros existem naquele relatório.
Como fazer isso ?
O campo a ser contado é do tipo alpha.
EX.: Cadastro de Clientes. Faço um filtro por UF e peço um preview. No campo deverá aparecer quantos cadastros existem naquele relatório.
Como fazer isso ?
Cbier
Curtidas 0
Respostas
Spider
15/10/2003
nos componetes Table e Query tem uma propriedade que retorna a quantidade de registros de uma tabela!
qrlabel1.caption:=table1.recordcount;
//ou
qrlabel1.caption:=query1.recordcount;
qrlabel1.caption:=table1.recordcount;
//ou
qrlabel1.caption:=query1.recordcount;
GOSTEI 0
Cbier
15/10/2003
Não deu certo.
Coloquei o código no OnPrint do QRLabel, no BeforePrint da Band...
A contagem deve ser de campos filtrados de uma table.
Já tentei utilizar a propriedade Expression do componente QRExpr1 com a função COUNT em uma Band Summary. Não deu certo.
Estou ficando de cabelos brancos com esse QR.
Coloquei o código no OnPrint do QRLabel, no BeforePrint da Band...
A contagem deve ser de campos filtrados de uma table.
Já tentei utilizar a propriedade Expression do componente QRExpr1 com a função COUNT em uma Band Summary. Não deu certo.
Estou ficando de cabelos brancos com esse QR.
GOSTEI 0
Weber
15/10/2003
Se voce os clientes estiverem em um Detail é facil.
Crie uma variavel nQtde : Integer
no BeforePrint do QuickRep1
nQtde := 0;
no AfterPrint do Detail
nQtde := nQtde + 1;
no BeforePrint do Sumary ou PageFooter
QrLabel1.Caption := IntToStr(nQtde);
Crie uma variavel nQtde : Integer
no BeforePrint do QuickRep1
nQtde := 0;
no AfterPrint do Detail
nQtde := nQtde + 1;
no BeforePrint do Sumary ou PageFooter
QrLabel1.Caption := IntToStr(nQtde);
GOSTEI 0