منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
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



ولا حقا ان شاء الله سوف اعمل لكن مثال مثله
وشكراً

(27-03-14, 12:50 PM)aftfm p11636 كتب :السلا عليكم ورحمة الله وبركاته

اخي العزيز yousef

إقتباس :اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت

هذا في حالة انني اريد طباعة فقط ما بداخل الداتا قريد

لكن لو كان لدي بضع البيانات في القريد والبعض الآخر في مربع نص أو اداة تاريخ أو Lable

وتظهر بيانات في القيد وباقي بيانات السجل في الادوات الأخرى للسجل الواحد

كيف تكون الطباعة كل سجل في صفحة

اخي العزيز انا اعتذر على التأخير في الرد
ارجوا التركيز في الكود وستعرف الاجابة
لاحظ وجود جدول في الداتا ست و وجود جدول اخر مشابه له في الكود

هل فكرت بالسبب؟؟؟
ان الكرستال ريبورت لا ياخذ اكثر من تابل
لذا التابل الموجود في الداتا ست اضيفة للكرستال ريبورت و ليس بالضرورة ان يكون نفس التابل للداتا جرد التي يتعامل معها المستخدم لكن عند اضافة التابل بالكود يجب ان يكون نفس التابل الذي قمت باضافته للكرستال
وبالنسبة لطباعة السجل من لابل او تكست بكس فذلك يكون بالتعديل على على التابل المضاف بالكود وذلك حسب الحاجة
اذا عندك شي او مثال اعطيني وانا برفعلك مثال

جزاك الله خيرا

هل تم حل سؤالك ؟
لأن واجهت هذه المشكلة نفسها في برنامجي