USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Crystal Report
Reginaldo
BELO HORIZONTE
BH - BRASIL
ENUNCIADA !
Postada em 03/12/2004 10:24 hs            
O meu TBteste.testeID era do tipo long porém foi preciso mudar para duplo e agora parou de funcionar a rotina abaixo, alguém saberia me dizer porque??

    CR1.DataFiles(0) = App.Path & "     este.mdb"
    CR1.WindowState = 2
    CR1.WindowControlBox = True
    CR1.ReportFileName = App.Path & "     este.rpt"
    CR1.Destination = 0
    CR1.SelectionFormula = "{TBteste.testeID} = ToNumber('" & TXTteste & "')"
    CR1.RetrieveDataFiles
    CR1.Action = 1
   
Rosa Ribeiro
não registrado
ENUNCIADA !
Postada em 03/12/2004 11:37 hs   
Estou precisando atribuir cor a uma variável do crystal......não sei a sintaxe da fórmula.....
 
if {pr_relat_oficios_situacao;1.dat_prazo} < CurrentDateTime
then stringVar Situacao := 'VENCIDO' 
 
 Gostaria que essa variável recebesse o valor VENCIDO em cor vermelha
 
Se souberem....me dêem uma dica por favor...
Agradeço
   
Fabio CR
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 03/12/2004 12:54 hs            
Reginaldo,
 
Quando vc precisa fazer alteração desse tipo no seu BD, é recomendado abrir seu .rpt e vá em Database / Verify Database.
 
Como o campo já é numérico, a linha do selection formula não precisa do ToNumber, ficando assim
CR1.SelectionFormula = "{TBteste.testeID} = " & TXTteste

t+

Fabio CR

   
Reginaldo
BELO HORIZONTE
BH - BRASIL
ENUNCIADA !
Postada em 03/12/2004 13:51 hs            
Obrigado Fabio CR,

Estava faltando fazer isto para funcionar.
   
Sandro
não registrado
ENUNCIADA !
Postada em 03/12/2004 22:40 hs   
Repondendo a amiga Rosa Ribeiro, para alterar a cor da sua fórmula, você deverá clicar com o botão direito do mouse sobre a sua fórmula e selecionar Font. Lá ao lado da cor existe um botão (x+2), clique nele. Será aberta uma tela de edição de fórmula, nesta fórmula, você digitará o seguinte:
 
If Situacao = 'VENCIDO' Then
    crRed
Else
    crBlack;
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página