14-02-14, 05:09 PM
السلام عليكم و رحمة الله و بركاته
اعمل على مشروع برنامج و الحمدلله قربت اخلصه ناقص التقرير ده بس
الموضوع يتلخص فى ان التقرير ده بيعرض جدولين بشكل سليم قمت بعمل تقرير لكل جدول على حدى و انشأت تقرير جديد و استخدمت subReport لعرض تقرير الجدولين فى تقرير واحد و يعمل معى بشكل سليم
المشكلة ان الجدولين دول متشابهين و بهم خانتين للسنة و الشهر قمت بعمل 2 كومبوبوكس لاختيار الشهر و السنة لعرض بيانات محددة من الجدولين معاً
و استخدمت الكود التالى فى زر الطباعة فى الفورم
هذا الكود يعمل معى بشكل سليم و لكن يقوم بعمل فلترة لجدول واحد فقط Table2
و باقى Table6 لا اعرف كيف اقوم بتطبيق هذا الكود عليه ايضاً
اعمل على مشروع برنامج و الحمدلله قربت اخلصه ناقص التقرير ده بس
الموضوع يتلخص فى ان التقرير ده بيعرض جدولين بشكل سليم قمت بعمل تقرير لكل جدول على حدى و انشأت تقرير جديد و استخدمت 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 لا اعرف كيف اقوم بتطبيق هذا الكود عليه ايضاً