ActiveDelphi

k713 · Enviada: Qui Out 16, 2014 3:07 pm Assunto: Não encontra campo vazio na tabela?

Salve galera...seguinte: Tenho um relatório no quickreport e precisava "colorir" os QRDBText que estão nele. Os campos vazios de vermelho e os não vazios de verde, mas não tá rolando. Vejam o código (coloquei no beforeprint da banda):

begin
if tabelas.TbProntuario.FieldByName('dia01S').IsNull then begin
RptListacanteiroextmes.QR1S.Color := clred;
end else begin
RptListacanteiroextmes.QR1S.Color := clgreen;
end;
end;

Desse jeito ele colore tudo de vermelho, os vazios e os não vazios. Alguma idéia?

johnny-walker · Enviada: Qui Out 16, 2014 3:27 pm Assunto:

Por acaso é data?

Se for acho que deste jeito não dá, pois o campo data é um inteiro.

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

k713 · Enviada: Qui Out 16, 2014 3:32 pm Assunto:

johnny-walker,

o campo é texto, mas estou gravando nele com máscara de hora (hh:mm)...será q é isso?

Existe outra forma de colorir isso?

imex · Enviada: Qui Out 16, 2014 4:01 pm Assunto:

Boa tarde,

Pelo que entendi do seu código, se está ficando tudo vermelho é porque o campo verificado no código está sempre nulo.
As propriedades DataSet e DataField do QRDBText estão apontando respectivamente para tabelas.TbProntuario e dia01S?

k713 · Enviada: Qui Out 16, 2014 4:09 pm Assunto: Resolvido

Consegui resolver...era isso msm imex. Valeu!!!