[maestroo]

كيفية استدعاء قيمة ال textbox1 واظهارها في التقرير

[maestroo]

ارجو المساعدة

[maestroo]

تم الحل الحمد لله بنجاح بتصدير قيمة من نصوص موجودة ضمن فورم 1 وتصديرها الى الكريستال ريبورت 2

الكود التالي نضعه في الجنرال اي الدكلريشين

Imports CrystalDecisions.CrystalReports.Engine

الكود كالتالي داخل زر

Dim rpt As New CrystalReport2
Try

'=================================================
' للتعامل بها مع التقرير TextObject نعرف متغيرات من نوع
Dim txt1 As TextObject
Dim txt2 As TextObject
Dim txt3 As TextObject
'=========================================
Dim f As New Form3
' تعريف متغير للفروم 2
'=======================================================
'نلاحظ هنا ان قمنا بتوصيل كل متغير الل
txt1 = rpt.ReportDefinition.ReportObjects("Text1")
txt2 = rpt.ReportDefinition.ReportObjects("Text2")
txt3 = rpt.ReportDefinition.ReportObjects("Text3")
' ثم كود توصيل المتغيرات بالادوات على الفروم
txt1.Text = Me.Label18.Text
txt2.Text = TextBox2.Text
txt3.Text = TextBox3.Text
' ' هذا كود عرض البيانات من الاداوت على الفروم داخل التقرير

f.CrystalReportViewer1.ReportSource = rpt
f.CrystalReportViewer1.Zoom(90%)
f.CrystalReportViewer1.RefreshReport()
f.Show()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

مع الشكر والتقدير