Discussion :

[jmp65]

Bonjour, je rencontre un problème d'affichage de mon sous rapport dans le rapport.
j'utilise vb.net et je construis deux rapport a l'aide de datasets. Pas de problème pour les afficher l'un et l'autre, mais quand j'insère le sous rapport dans le rapport, celui ci ne s'affiche pas.
J'ai pu lire qu'il fallait sélectionner "Taille Modulable" et Décocher "Sélectionnez .....en fonction du champ"
Mais rien n'y fait ...
Quelqu'un peut il m'aider ?

[jmp65]

Bonjour, voici le code que j'utilise mais sans succès dans VB.NET
Les datasets se chargent mais je reçois un message d'erreur à la ligne :

Code :

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

crystalReportMS.Subreports.Item("CrSub").SetDataSource(SubR)

System.NullReferenceException*: 'La référence d'objet n'est pas définie à une instance d'un objet.'

J'ai fait un lien dans le crystalreport entre "id_detail_vente" et "id_ventes"

est ce que quelqu'un peux m'aider svp

Code VB.NET :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
 
Public Class FrmMainSub
 
    Private Sub CrystalReportViewer1_Load(sender As Object, e As EventArgs) Handles CrystalReportViewer1.Load
 
        Dim crystalReportMS As New CrMainSub()
        Dim Main As DsMainSub = GetData()
        Dim SubR As DsSub = GetData1()
        crystalReportMS.SetDataSource(Main)
        crystalReportMS.Subreports.Item("CrSub").SetDataSource(SubR)
        CrystalReportViewer1.ReportSource = crystalReportMS
 
        CrystalReportViewer1.RefreshReport()
 
        Show()
    End Sub
 
    Private Function GetData() As DsMainSub
 
        Dim constr As String = ("SERVER=" & strVarPublicServeur & ";DATABASE=" & strVarPublicDb & ";USER=" & strVarPublicUtilisateur & ";PWD=" & strVarPublicMp)
 
        Using con As New MySqlConnection(constr)
            Using cmd As New MySqlCommand("SELECT id_ventes, bancontat, liquide, visa, virement FROM ventes " &
                   " WHERE ventes.id_ventes = 149")
                Using sda As New MySqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using Main As New DsMainSub()
                        sda.Fill(Main, "DtMainSub")
                        Return Main
                    End Using
                End Using
            End Using
        End Using
    End Function
    Private Function GetData1() As DsSub
 
        Dim constr As String = ("SERVER=" & strVarPublicServeur & ";DATABASE=" & strVarPublicDb & ";USER=" & strVarPublicUtilisateur & ";PWD=" & strVarPublicMp)
 
        Using con As New MySqlConnection(constr)
            Using cmd As New MySqlCommand("SELECT `id_detail_vente`,`id_vente`,`description`,`quantite`,`prix_vente`,`remise_montant`,`remise_pourcent`,`net`,`total`" &
            " FROM detail_vente WHERE detail_vente.id_vente = 149")
                Using sda As New MySqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using SubR As New DsSub()
                        sda.Fill(SubR, "DtSub")
                        Return SubR
                    End Using
                End Using
            End Using
        End Using
    End Function
End Class

[luc_chivas]

https://stackoverflow.com/questions/...p-win-form-app

[jmp65]

Merci beaucoup pour votre réponse mais je ne m'en sort pas trop, vous n'auriez pas un petit lien pour du VB.NET ?

[jmp65]

Enfin trouvé la solution ....
Avec le code ci-dessous et les acquisitions Get... ça fonctionne.
Plus qu'a élargir les GetData() et GetData1()

Trop content ....
3 semaines de recherche
Merci beaucoup

Code VB.NET :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
 
Public Class FrmMainSub
 
    Private Sub CrystalReportViewer1_Load(sender As Object, e As EventArgs) Handles CrystalReportViewer1.Load
 
        Dim crystalReportMS As New CrMainSub()
        Dim Main As DsMainSub = GetData()
        Dim SubR As DsSub = GetData1()
 
 
        crystalReportMS.SetDataSource(Main.Tables(0))
        crystalReportMS.Subreports("CrSub.rpt").SetDataSource(SubR.Tables(0))
        CrystalReportViewer1.ReportSource = crystalReportMS
 
        CrystalReportViewer1.RefreshReport()
 
        Show()
 
    End Sub
 
    Private Function GetData() As DsMainSub
 
        Dim constr As String = ("SERVER=" & strVarPublicServeur & ";DATABASE=" & strVarPublicDb & ";USER=" & strVarPublicUtilisateur & ";PWD=" & strVarPublicMp)
 
        Using con As New MySqlConnection(constr)
            Using cmd As New MySqlCommand("SELECT id_ventes, bancontat, liquide, visa, virement FROM ventes " &
                   " WHERE ventes.id_ventes = 149")
                Using sda As New MySqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using Main As New DsMainSub()
                        sda.Fill(Main, "DtMainSub")
                        Return Main
                    End Using
                End Using
            End Using
        End Using
    End Function
    Private Function GetData1() As DsSub
 
        Dim constr As String = ("SERVER=" & strVarPublicServeur & ";DATABASE=" & strVarPublicDb & ";USER=" & strVarPublicUtilisateur & ";PWD=" & strVarPublicMp)
        Dim Query1 As String
 
 
        Using con As New MySqlConnection(constr)
            Using cmd As New MySqlCommand("SELECT `id_detail_vente`,`id_vente`,`description`,`quantite`,`prix_vente`,`remise_montant`,`remise_pourcent`,`net`,`total`" &
            " FROM detail_vente WHERE detail_vente.id_vente = 149")
                Using sda As New MySqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using SubR As New DsSub()
                        sda.Fill(SubR, "DtSub")
                        Return SubR
                    End Using
                End Using
            End Using
        End Using
    End Function
End Class