تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاستعلام عن قيمة نص
#1
Question 
كيفية استدعاء قيمة ال textbox1 واظهارها في التقرير Huh
الرد }}}
تم الشكر بواسطة:
#2
ارجو المساعدة
الرد }}}
تم الشكر بواسطة:
#3
تم الحل الحمد لله بنجاح بتصدير قيمة من نصوص موجودة ضمن فورم 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
مع الشكر والتقدير
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم