CRYSTAL REPORT XI

XXXANGELSXXX 01/07/2011 14:09:37
#378213
Pessoal, boa tarde, estou com um probleminha aqui que nao estou conseguindo achar onde esta o problema de jeito algum, vejam só, eu tenho crystal report XI e quero fazer uma query no vb e passar como parametro para o meu relatorio, a conexao do relatorio fiz via dsn(rdo), desenhei todo o relatorio, mas quando eu peço para imprimir o mesmo, ele nao aparece o relatorio, simplesmente aparece o relatorio que fiz como se estivesse salvo os dados do mesmo, datalhe, quando é so 1 tabela envolvida no relatorio eu consigo selecionar os dados via sintaxe, agora quando tem mais de uma tabela vinculada da este problema de nao imprimir apenas o relatorio que estou querendo.

vejam o codigo : 

   
    Set clsCnn = New TS_AcessoBD
    Set Crystal = New CRAXDRT.Application
    strSQL = [Ô]Select * from movimentoocorrencias where idmov=[ô][Ô] & [Ô]2855[Ô] & [Ô][ô][Ô]
    Set MyRS = clsCnn.ExecutaSQL(strSQL)
    If MyRS.RecordCount > 0 Then
    Report.Database.SetDataSource MyRS
     For N = 1 To Report.FormulaFields.Count
            vNFormula = Report.FormulaFields.Item(N).Name
            If vNFormula = [Ô]{@forendereco}[Ô] Then
                Report.FormulaFields.Item(N).Text = idmov
            End If
            If vNFormula = [Ô]{@fornomeempresa}[Ô] Then
                Report.FormulaFields.Item(N).Text = [Ô][ô][Ô] & idmov & [Ô][ô][Ô]
            End If
             If vNFormula = [Ô]{@fornos}[Ô] Then
                Report.FormulaFields.Item(N).Text = [Ô][ô][Ô] & idmov & [Ô][ô][Ô]
            End If
            If vNFormula = [Ô]{@forrodape}[Ô] Then
                Report.FormulaFields.Item(N).Text = [Ô][ô][Ô] & idmov & [Ô][ô][Ô]
            End If
      Next
    With frm_REL_Relatorios
        .CrV.ReportSource = Report
        .CrV.ViewReport
        .CrV.Refresh
        .Show
    End With
Else
USMsgBox [Ô]Não existe informações[Ô], vbInformation, [Ô]Aviso[Ô], [Office Blue]
End If
    Set clsCnn = Nothing
    Set Crystal = Nothing
    Set Report = Nothing
XXXANGELSXXX 01/07/2011 18:01:10
#378230
Pessoal, esse acima tou me virando aqui.. acho que vou conseguir ajustar, agora queria ver o seguinte.. em um campo tipo integer, recebo valores de como 1,2,3.. etc.. gostaria de formatar esses numeros no relatorio como 00001, 00002, enfim, com zeros a esquerda, qual formula utilizo para fazer isso?
RODRIGOFERRO 01/07/2011 18:35:07
#378231
Citação:

:
Pessoal, esse acima tou me virando aqui.. acho que vou conseguir ajustar, agora queria ver o seguinte.. em um campo tipo integer, recebo valores de como 1,2,3.. etc.. gostaria de formatar esses numeros no relatorio como 00001, 00002, enfim, com zeros a esquerda, qual formula utilizo para fazer isso?



Axo que um ToText resolve.. nao ?

Abraços
XXXANGELSXXX 01/07/2011 19:29:23
#378238
alguem sabe a sintaxe disso?
ROBIU 02/07/2011 06:42:37
#378272 Resposta escolhida
Você vai criar uma fórmula para usar no lugar do campo integer. A sintaxe é:
ToText ({Campo},[Ô]00000[Ô] )

Veja na imagem como fazer e aplicar. Estou usando CR9
XXXANGELSXXX 05/07/2011 23:06:41
#378551
Perfeito amigo.. muito obrigado!!!
Tópico encerrado , respostas não são mais permitidas
Voltar