Discussion :

[romulus]

Bonjour,

Je vais essayer d'être le plus clair possible...

Je bosse sur un projet VB.Net 2008 qui utilise Crystal Report (que je découvre)...

Actuellement, il existe 3 rpt différents et le code est fait de telle manière qu'il n'y a qu'un seul rpt utilisé par rapport...

Mon besoin est de générer un rapport imprimable ou enregistrable (pdf) qui utilise plusieurs rpt car toutes les pages n'ont pas la même mise en page...

Est-ce possible, et comment ?


Donc, pour résumer :

Actuellement => 1 rapport de plusieurs pages avec 1 seul rpt comme template donc une mise en page unique pour toutes les pages.

Besoin => 1 rapport de plusieurs pages combinant (via passage de param) 3 rpt ou plus afin d'obtenir dans un même rapport des pages avec des mises en pages différentes...
(page 1 (rpt1), page 2 (rpt1), page 3 (rpt4), page 4(rpt2)...)

Merci de votre aide

[romulus]

Le code actuel est ainsi fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
    Sub CreateRapport(ByVal Requete As String, ByVal TYPEQ As Integer)
        Dim myData As New DataSet
        Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
        Dim myAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter
        Dim myReport As New ReportDocument
        Dim conn As New MySql.Data.MySqlClient.MySqlConnection("datasource=" + IPDBSERVER + ";username=" + DBLOGIN + ";password=" + DBPASS + ";database=" + DBNAME + "")
 
        Try
            conn.Open()
            cmd.CommandText = Requete
            cmd.Connection = conn
            myAdapter.SelectCommand = cmd
            myAdapter.Fill(myData)
            myData.WriteXml("C:\XML", XmlWriteMode.WriteSchema)
            If TYPEQ = 1 Then
                myReport.Load(Application.StartupPath + "\modele1.rpt")
            ElseIf TYPEQ = 2 Then
                myReport.Load(Application.StartupPath + "\modele2.rpt")
            ElseIf TYPEQ = 3 Then
                myReport.Load(Application.StartupPath + "\modele3.rpt")
            End If
 
            myReport.SetDataSource(myData)
            MonForm.myViewer.ReportSource = myReport
            conn.Close()
 
            MonForm.ShowDialog()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
    End Sub

Le sub est appelé une fois avec la requète et le type de rpt à utiliser passés en paramètre... Mais le rapport est construit et affiché dans la foulée en se basant sur un seul rpt....

- myReport.SetDataSource() utilisant mydata, la construction du fichier xml n'est-il pas inutile ?

- je pense réécrire le code de manière à appeler ce sub dans une boucle pour constituer un sous-rapport qui viendrait s'ajouter, à chaque tour de boucle, au rapport principal (la logique c'est bien, mais est-ce faisable ? et surtout comment ?)

Merci de votre aide...