GERAR RELATORIOS
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
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
Amigo, Douglas
Veja se isso resolve
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
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?
o relatorio sai em branco
o que pode ser?
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