GERAR RELATORIOS

DOUGLASGARCIA 29/11/2011 09:55:27
#390232
bom dia

utilizo o crystal reports que vem junto com o vb 6 para gerar relatorios:
estou com o seguite problema:

no formulario tem um botão para imprimir no qual tem o seguinte codigo:

Private Sub btnimprimir_Click()
Dim caminho As String


caminho = ReadINI([Ô]Caminho[Ô], [Ô]BG[Ô], App.Path & [Ô]el.ini[Ô])

CR1.ReportFileName = caminho
CR1.Destination = crptToWindow
CR1.WindowState = crptMaximized

CR1.SelectionFormula = [Ô]{MOVIMENTOS.op} = [Ô] & txtop
CR1.RetrieveDataFiles
CR1.WindowTitle = [Ô]Relatório de extrato do item[Ô]
CR1.Action = 1
End Sub

assim funciona mas querro trocar MOVIMENTOS.op que é um numero por MOVIMENTOS.localização que é um texto

só funciona com dados no formato numero

o que fazer para resolver esse problema?


obrigado
JESUEL.OLIVEIRA 01/12/2011 08:55:24
#390353 Resposta escolhida
Amigo, Douglas

Veja se isso resolve

   
[ô]Para variáveis com valores numéricos
CrystalReport1.SelectionFormula = [Ô]{Tabela.Campo}=[Ô] & var

[ô]Para variáveis com valores texto (string)
CrystalReport1.SelectionFormula = [Ô]{Tabela.Campo}=[ô][Ô] & var & [Ô][ô][Ô]  [ô]para valores textos
                                                             apóstrofe+aspas       aspas+apóstrofe+aspas
DOUGLASGARCIA 01/12/2011 15:16:56
#390389
para o campo com texto deu certo, mas agora não esta funcionando para os campos com numero

o relatorio sai em branco

o que pode ser?
JESUEL.OLIVEIRA 01/12/2011 17:07:00
#390398
Então amigo você tem que colocar um IF

  
IF NUMERO THEN
EXECUTA a função com numero
ELSEIF TEXTO THEN
EXECUTA a Função com TEXTO
End If
Tópico encerrado , respostas não são mais permitidas
Voltar