• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rui_fernandes

[vb.net 2005 ] crystal reports com variaveis....

3 mensagens neste tópico

Boa tarde...

tipo, eu queria que atraves de crystal reports podesse imprimir 3 reports, os 3 iguais, apenas iria mudar o conteudo de uma LABEL.(Original,Duplicado e triplicado).

será isto possivel ? mas vai utilizar o mesmo report, apenas muda a Label.

Cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas.

Neste exemplo estou a usar TextBox no report não há Labels!!

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo


Dim crReportDocument As New CrystalReport1
crConnectionInfo = New ConnectionInfo
With crConnectionInfo
    .ServerName = "Ares"
    .DatabaseName = "Dinefer"
    .UserID = "Utilizador"
    .Password = "ab,cdef123!"
End With
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
For Each crTable In crTables
    crTableLogOnInfo = crTable.LogOnInfo
    crTableLogOnInfo.ConnectionInfo = crConnectionInfo
    crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
'' altera desc
If tipo_de_documento.Trim.ToLower = "linha" Then

    Dim crreportobject As CrystalDecisions.CrystalReports.Engine.ReportObject
    For Each crreportobject In crReportDocument.ReportDefinition.ReportObjects
        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.TextObject Then
            Dim crtextobject As CrystalDecisions.CrystalReports.Engine.TextObject = DirectCast(crreportobject, CrystalDecisions.CrystalReports.Engine.TextObject)
            If crreportobject.Name.TrimEnd = "Text3" Then
                crtextobject.Text = "Custo de uma linha da Obra discriminado por Familias"
            End If
            If crreportobject.Name.TrimEnd = "Text5" Then
                crtextobject.Text = " - Pos " & PosObra_ & " - "
            End If
        End If
    Next

End If

formula=string.empty
crReportDocument.RecordSelectionFormula = formula
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.Zoom(100)
CrystalReportViewer1.ReportSource = crReportDocument

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

epah e no ciclo, tenh de fazer o FOR EACH ?

nao posso ir logo directo a textbox ?

mas eu keria mandar o mesmo report 3 vezes, e so alterar a textbox em cada um tas a ver...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora