[mhmd_911]

هذه الكود لتمرير قيمة من TextBox1 موجود في الفورم إلى TextObject اسمه Text1 موجود في تقرير كريستال ريبورت في قسم Section2

PHP كود :

TryCast(rpt.Section2.ReportObjects("Text1"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox1.Text 


---

ومكن استخدام هذه الطريقة اذا اردت تغيير عدة خصائص لأداة TextObject الموجودة في التقرير

PHP كود :

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

Text1.Text = Me.TextBox1.Text
Text1.Color = Color.Red
Text1.ApplyFont(New Font("Times New Roman", 14, FontStyle.Bold))