05-09-22, 01:58 AM
(آخر تعديل لهذه المشاركة : 05-09-22, 02:00 AM {2} بواسطة جيولوجي مبتدئ.)
السلام عليكم ورحمة الله وبركاته
هل تقصد أخي تمرير البيانات كابراميترات
إذا كان هذا المقصود قم بإستخدام الكود التالي
هل تقصد أخي تمرير البيانات كابراميترات
إذا كان هذا المقصود قم بإستخدام الكود التالي
Dim dt5 As New DataTable
dt5 = DataGridView1.DataSource
Dim cr5 As New CrystalReport6
cr5.SetDataSource(dt5)
Dim r5 As New Form26
cr5.SetParameterValue("Employee_Name", textbox1.Text)
cr5.SetParameterValue("Department", textbox2.Text)
cr5.SetParameterValue("Date_from", DateTimePicker1.Text)
cr5.SetParameterValue("Date_To", DateTimePicker2.Text)
r5.CrystalReportViewer1.Zoom(300%)
r5.CrystalReportViewer1.ReportSource = cr5
r5.ShowDialog()
r5.CrystalReportViewer1.ReportSource = cr5
r5.ShowDialog()
لك جزيل الشكر
دمت بود

