• Home
 · 
• Miscellaneous
 · 
• How to open a Crystal Report using the Crystal Report Control! Comments in italian.

How to open a Crystal Report using the Crystal Report Control! Comments in italian.

How to open a Crystal Report using the Crystal Report Control! Comments in italian.

Rate How to open a Crystal Report using the Crystal Report Control! Comments in italian.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'                    OpenCrystalReport

Private Sub OpenCrystalReport(ReportFileName As String)
    Dim lSubRepNum As Long
    Dim strSubRepName As String
    Dim lCount As Long
    
    ' Imposta il file del report
    CrystalReport1.ReportFileName = ReportFileName
    ' Stringa di connessione
    CrystalReport1.Connect = "DSN=xxx;UID=xxx;PWD=xxx;"
    ' Preleva la Query SQL direttamente dal Crystal
    CrystalReport1.RetrieveSQLQuery
    ' Ci sono n sottoreport
    lSubRepNum = CrystalReport1.GetNSubreports
    ' Per ogni sottoreport
    For lCount = 0 To lSubRepNum - 1
        ' Prende il nome del sottoreport
        strSubRepName = CrystalReport1.GetNthSubreportName(lCount)
        ' Le proprietà che successivamente verranno
        ' impostate riguarderanno il sottoreport indicato
        CrystalReport1.SubreportToChange = strSubRepName
        ' Stringa di connessione del sottoreport
        CrystalReport1.Connect = "DSN=xxx;UID=xxx;PWD=xxx;"
    Next lCount
    ' Le proprietà ora tornano al report principale
    CrystalReport1.SubreportToChange = ""
    ' Avvio!
    CrystalReport1.Action = 1
End Sub