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

[rui_fernandes]

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.

[Asgorath]

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

[rui_fernandes]

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...