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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Relatório no Crystal Reports
MCA
CUIABÁ
MT - BRASIL
ENUNCIADA !
Postada em 28/09/2007 09:33 hs            
Pessoal estou usando o Crystal Reports para impressão de relatórios a partir de um banco de dados. Eu uso a seguinte instrução para isso, veja:
 
 cr2.ReportFileName = App.Path & "Relatorio4.rpt"
    cr2.Destination = crptToWindow
    cr2.WindowState = crptMaximized
    If Text1.Text <> "Todos" Then
        cr2.SelectionFormula = "{Tabela.Campo} ='" & Text1 & "'"
    End If
    cr2.RetrieveDataFiles
    cr2.WindowTitle = "Relatório de Visitas"
    cr2.Action = 1
 
Onde "Text1" é o campo onde digito a data para que seja feito o filtro. Só que ele está enxergando o valor de "Text1" como texto. Como faço para que o Crystal "entenda" que o valor de "Text1" é uma data? Porque eu quero mudar o sinal de "=" para "<" em  (cr2.SelectionFormula = "{Tabela.Campo} ='" & Text1 & "'").
Desde já eu agradeço!!!
TÓPICO EDITADO
 
Michel Morgado
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/09/2007 10:12 hs            
Tenta assim:
 
cr2.SelectionFormula = "{tabela.campo} = "#" & text1 & "#"
 
Mas o campo no BD está como ? o mesmo tem que estar como data.
TÓPICO EDITADO
 
Marcel
não registrado
ENUNCIADA !
Postada em 28/09/2007 10:16 hs   
Michel o campo no banco está como texto, acho que é por causa disso mano que não está dando certo.
   
Michel Morgado
SAO PAULO
SP - BRASIL
Postada em 28/09/2007 10:27 hs            
Com Certeza ..
 
Coloque o campo como Data/Hora e tente.
 
Outra coisa, o BD é Access ?
     
Marcel
não registrado
ENUNCIADA !
Postada em 28/09/2007 10:30 hs   
Sim Michel, o BD é access. Só o que o seguinte mano, tem uns 1000 registros já. Será que não existe outra maneira de converter este campo para Data/Hora?
   
Michel Morgado
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/09/2007 10:33 hs            
Pow cara .. dai c me pegou ... c vc mudar o tipo do campo ele não muda os registros ?
 
E outra quando você for baixar os dados faça o seguinte.
 
cr2.SelectionFormula = "{tabela.campo} = "#" & Format(text1, "DD/MM/YYYY") & "#"
 
Dai os dados irão vir formatados no modelo certo, exemplo:
"01/01/2007"
 
Porque o access é meio frescurento, quando ele salva as datas no banco ele salva com o formato "MM/DD/YYYY" o padrão americano.
   
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