04-04-14, 03:10 AM
السلام عليكم
1-تضع text object في التقرير في اي Section انت تختاره مثل عندنا text1
2- تعرف متغير في الفورم فيو ب txt
Dim txt As Object
3- تساوي المتغير txt مع text object الذي اخترناه واسمو text1 لتتم عملية عرض محتواه في التقرير
txt = crystalreport1.section1.reportobject
("text1")
4- ف مثلا عاوزين نعرض قيمة textbox 1 التي في form1
txt.text=form1.textbox1.text
وبهذه الطريق نكون قد عرضان محتوي textbox1 الموجود في form1 في التقرير
الكود كامل:
Dim txt As Object
txt = CrystalReport1.Section1.ReportObjects("text1")
txt.text = Form1.TextBox1.Text
ولا حقا ان شاء الله سوف اعمل لكن مثال مثله
وشكراً
1-تضع text object في التقرير في اي Section انت تختاره مثل عندنا text1
2- تعرف متغير في الفورم فيو ب txt
Dim txt As Object
3- تساوي المتغير txt مع text object الذي اخترناه واسمو text1 لتتم عملية عرض محتواه في التقرير
txt = crystalreport1.section1.reportobject
("text1")
4- ف مثلا عاوزين نعرض قيمة textbox 1 التي في form1
txt.text=form1.textbox1.text
وبهذه الطريق نكون قد عرضان محتوي textbox1 الموجود في form1 في التقرير
الكود كامل:
Dim txt As Object
txt = CrystalReport1.Section1.ReportObjects("text1")
txt.text = Form1.TextBox1.Text
ولا حقا ان شاء الله سوف اعمل لكن مثال مثله
وشكراً