| 12
 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 | 
Partager