Dúvida com Query
Caros colegas,
Estou fazendo um relatório aonde utilizo um TQuery, existe um campo dessa minha consulta que é Lógico e naum estou conseguindo exibir esse cara no meu relatório. A idéia q tive foi colocar um QRLabel do relatório e se esse campo fosse True o QRlabel ficaria visível, caso contrário ele não apareceria. Coloquei p/isso o seguinte código:
While not QyFiltro.Eof Do
Begin
If QyFiltro.FieldByName(´Contrato´).AsBoolean = True Then
QRLabel1.Enabled := True
Else
QRLabel1.Enabled := False;
End;
Só q naum funciona. O que estou fazendo de errado? Alguém pode me ajudar?
Agradeço a todos.
Fabiano.
Estou fazendo um relatório aonde utilizo um TQuery, existe um campo dessa minha consulta que é Lógico e naum estou conseguindo exibir esse cara no meu relatório. A idéia q tive foi colocar um QRLabel do relatório e se esse campo fosse True o QRlabel ficaria visível, caso contrário ele não apareceria. Coloquei p/isso o seguinte código:
While not QyFiltro.Eof Do
Begin
If QyFiltro.FieldByName(´Contrato´).AsBoolean = True Then
QRLabel1.Enabled := True
Else
QRLabel1.Enabled := False;
End;
Só q naum funciona. O que estou fazendo de errado? Alguém pode me ajudar?
Agradeço a todos.
Fabiano.
Fabiano_aprendiz
Curtidas 0
Respostas
Gandalf.nho
16/02/2005
Sugestão melhor: use o componente do link abaixo. É um QRCheckBox, em versão normal e data-aware. É freeware.
[url]http://www.torry.net/vcl/reports/quickreport/qrcb.zip[/url]
[url]http://www.torry.net/vcl/reports/quickreport/qrcb.zip[/url]
GOSTEI 0
Fabiano_aprendiz
16/02/2005
Solucionei o problema colocando o código direto dentro da banda Detail do Quickreport e ele já faz um while retornando no recordset.
[]´s
Fabiano.
[]´s
Fabiano.
GOSTEI 0