[™Snip3R™]

السلام عليكم و رحمة الله و بركاته

اعمل على مشروع برنامج و الحمدلله قربت اخلصه ناقص التقرير ده بس

الموضوع يتلخص فى ان التقرير ده بيعرض جدولين بشكل سليم قمت بعمل تقرير لكل جدول على حدى و انشأت تقرير جديد و استخدمت subReport لعرض تقرير الجدولين فى تقرير واحد و يعمل معى بشكل سليم

المشكلة ان الجدولين دول متشابهين و بهم خانتين للسنة و الشهر قمت بعمل 2 كومبوبوكس لاختيار الشهر و السنة لعرض بيانات محددة من الجدولين معاً
و استخدمت الكود التالى فى زر الطباعة فى الفورم

كود :

Conn.Open()
        Dim cmd1 As New OleDbCommand()
        cmd1.CommandText = "select * from Table2 where lyear ='" & ComboBox21.Text & "' and lmonth ='" & ComboBox20.Text & "'"
        cmd1.Parameters.Clear()
        cmd1.Connection = Conn
        dt.Clear()
        Dim dr As OleDbDataReader = cmd1.ExecuteReader
        dt.Load(dr)
        dr.Close()
        Conn.Close()
        Dim rpt As New Cr25
        rpt.SetDataSource(dt)
        Form29.CrystalReportViewer1.ReportSource = rpt
        Form29.Show()

هذا الكود يعمل معى بشكل سليم و لكن يقوم بعمل فلترة لجدول واحد فقط Table2
و باقى Table6 لا اعرف كيف اقوم بتطبيق هذا الكود عليه ايضاً

[™Snip3R™]

uppppppp