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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تمرير نص تكست للتقرير (/showthread.php?tid=42359)

تمرير نص تكست للتقرير - مصمم هاوي - 04-09-22

هذا كود يقوم بطباعة البيانات حسب الفلترة في الداتا قريدفيو  في الفورم 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


RE: تمرير نص تكست للتقرير - جيولوجي مبتدئ - 05-09-22

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



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

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


 

      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()
لك جزيل الشكر 
دمت بود



      


RE: تمرير نص تكست للتقرير - مصمم هاوي - 05-09-22

(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()
لك جزيل الشكر 
دمت بود



      

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

RE: تمرير نص تكست للتقرير - جيولوجي مبتدئ - 06-09-22

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

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

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



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



لك جزيل الشكر 

دمت بود