Ma mise en forme "saute".

J'ai créé mon Etat crystal avec mes Groupements.
Quand j'affiche sous le CRViewer, les groupes ont disparu, et je n ai plus qun simple listing.

Voici mon code VB.NET


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
 
Private Sub frmReports_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim MonEtat As rptListeDoc
 
 
        Dim StrSQL As String = "SELECT CInt(Menu1.NumMenu1) AS NumMenu1, Menu1.Libelle , CInt(Menu2.NumMenu2) AS NumMenu2, Menu2.Libelle, CInt(Menu3.NumMenu3) AS NumMenu3, Menu3.Libelle, CInt(Ligne.NumLigne) AS NumLigne, Ligne.Nom, Ligne.Description, Ligne.Emetteur, Ligne.DateFile " _
& " FROM ((Menu1 INNER JOIN Menu2 ON Menu1.NumMenu1 = Menu2.NumMenu1) INNER JOIN Menu3 ON Menu2.NumMenu2 = Menu3.NumMenu2) INNER JOIN Ligne ON Menu3.NumMenu3 = Ligne.NumMenu3 " _
& " GROUP BY Menu1.Libelle, Menu2.Libelle, Menu3.Libelle, Ligne.Nom, Ligne.Description, Ligne.Emetteur, Ligne.DateFile, Menu1.NumMenu1, Menu2.NumMenu2, Menu3.NumMenu3, Ligne.NumLigne "
 
 
        Dim da As New OleDbDataAdapter(StrSQL, ObjetConnection)
        Dim Ds As New DataSet
        da.Fill(Ds, "LISTE_DOC")
 
 
	MonEtat = New rptListeDoc
 
        MonEtat.SetDataSource(Ds)
 
 
        CrystalReportViewer1.ReportSource = MonEtat
        CrystalReportViewer1.Refresh()
 
 
End sub

Je nage dans la semoule là. Pouvez vous m aider, suis novice sous CR et VB NET.
L'aide du site de Neo m a aidé, mais là, je coince vraiment.

Merci ;o)