• advertisement_alt
  • advertisement_alt
  • advertisement_alt
Janio Aguiar

Relatório ZEBRADO

7 posts in this topic

Boa tarde,

Como fazer um relatório (ligado a uma query) zebrado?

Janio

1 person likes this

Share this post


Link to post
Share on other sites

@Janio Aguiar

Aproveitei sua pergunta para estudar e tentar aprender..
Fiz assim.

No report, criei uma vari[avel para ser um contador de registro.
em  Reading the data of  SEUREPORT
gnLinha = gnLinha + 1


Coloquei um Shape sem borda e com cor de fundo , posicionado atras dos controles do relatório;
e no codigo desse shape fiz assim.

IF modulo(gnLinha,2)=1 THEN
    SHP_SHAPE6..Visible = True
ELSE
    SHP_SHAPE6..Visible=False        
END
 

Funcionou...  :D
 

2 people like this

Share this post


Link to post
Share on other sites

Essa técnica do @Cleiton Fidelis uso tb no Fastreport, agora será q não teria alguma outra forma?

Share this post


Link to post
Share on other sites

Jânio

Faço assim também, mas sem criar nenhuma variável e nenhum objeto.

Coloco este código no Before Printing BODY do report:

IF modulo(MyReport..NbRecRead, 2) = 0  THEN
    MySelf..BrushColor = RGB(230, 230, 230)
ELSE    
    MySelf..BrushColor = Transparent
END

4 people like this

Share this post


Link to post
Share on other sites
Em 17/05/2020 at 9:49 AM, Rinaldo Xavier disse:

Jânio

Faço assim também, mas sem criar nenhuma variável e nenhum objeto.

Coloco este código no Before Printing BODY do report:

IF modulo(MyReport..NbRecRead, 2) = 0  THEN
    MySelf..BrushColor = RGB(230, 230, 230)
ELSE    
    MySelf..BrushColor = Transparent
END

@Rinaldo Xavier vc é bão demais ,menino !

1 person likes this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now