[مصمم هاوي]

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