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