منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طباعة جدولين فى تقرير واحد مشكلة بسيطة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : طباعة جدولين فى تقرير واحد مشكلة بسيطة (/showthread.php?tid=1910)



طباعة جدولين فى تقرير واحد مشكلة بسيطة - ™Snip3R™ - 14-02-14

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

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

الموضوع يتلخص فى ان التقرير ده بيعرض جدولين بشكل سليم قمت بعمل تقرير لكل جدول على حدى و انشأت تقرير جديد و استخدمت 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 لا اعرف كيف اقوم بتطبيق هذا الكود عليه ايضاً


RE: طباعة جدولين فى تقرير واحد مشكلة بسيطة - ™Snip3R™ - 15-02-14

uppppppp