[VB NET]: DataSet et Crystal Report. Mes Groupe "sauten
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:
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)