منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هذا كود يقوم بطباعة البيانات حسب الفلترة في الداتا قريدفيو في الفورم FormSearch
وهو شغال تمام 100%

أريد تمريــر نص لعدد (2) textbox من فورم Formstrip لتقرير الكريستال ريبورت * حاولت ولكن جميع المحاولات باءت بالفشل

علماً بأن تمرير نصوص التكسات من الفورم FormSearch للتقرير قد نجح ؛ ولكن المشكلة في التمرير من الفورم Formstrip

فارجـــو التعديل على الكود

كود :

       Try

            If ComboBox3.Text = "" Then

                ErrorProvider1.SetError(ComboBox3, "الرجــاء ... إختيــار  الاســــم ")

                Exit Sub

            End If

            Dim rpt1 As New CrystalReport2

            rpt1.SetDataSource(dt)

            Dim Text1 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text1")

            Text1.Text = Formstrip.TextBox1.Text

            Dim Text2 As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("Text2")

            Text2.Text = Formstrip.TextBox2.Text

            FormPrint.CrystalReportViewer1.ReportSource = rpt1

            FormPrint.CrystalReportViewer1.Zoom(100)

            FormPrint.CrystalReportViewer1.Refresh()

            FormPrint.Show()

        Catch ex As Exception

            MsgBox("عفــوا ... لا يمكن عرض السجـلات ", MsgBoxStyle.Critical, "تنبيـــه")

        End Try

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

هل تقصد أخي تمرير البيانات كابراميترات

إذا كان هذا المقصود قم بإستخدام الكود التالي

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()

لك جزيل الشكر

دمت بود

(05-09-22, 01:58 AM)جيولوجي مبتدئ كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

هل تقصد أخي تمرير البيانات كابراميترات

إذا كان هذا المقصود قم بإستخدام الكود التالي

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()

لك جزيل الشكر

دمت بود

بارك الله فيك وجزاك كل خير على الرد.
ولكن المطلوب أن التكست المطلوب تمرير نصه موجود في فورم آخر
سأحاول عمل مثال للتوضيح

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

استخدم نفس الكود ولكن بتغيير بسيط جداً

مثلاً لو كان Textbox2.Text هو المطلوب تمرير النص منه وكان في فورم 4 مثلاً فبدل أن تكتب Textbox2.text فقط فإننا نكتبها كالتالي form4.Text2.text

إن شاء تكون واضحة

لك جزيل الشكر

دمت بود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصمم هاوي

جيولوجي مبتدئ

مصمم هاوي

جيولوجي مبتدئ