الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة : كيف يمكنى طباعة Cpmuter name فى تقرير كريستال ريبوت

بدأه ايمن نور العرب في 10 مايو 2010 · 4 رد · 541 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اخوانى انا تعبت جدا جدا حتى اجد الطريق لكى ان طبع

Computer name

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

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

#2

شوف عزيزي

أعمل في التقرير TextObject وسمه أي أسم يناسبك مثلاً TxtComputername ثم أعمل متغير وخزن فيه اسم الكمبيوتر وليكن مثلاً (VarComputerName)بعد ذلك في حدث ( التحميل ) للنموذج الخاص بعرض التقرير ضع الكود التالي :

 Dim MyText1 As Object = CType(EmpRpt.ReportDefinition.ReportObjects("TxtComputername"), TextObject)
            MyText1.text = VarComputerNamet

جرب الكود فأنني لم أجربه وإذا لم يضبط معك أخبرنا

#3
مصلح الحريصي كتب:

شوف عزيزي

أعمل في التقرير TextObject وسمه أي أسم يناسبك مثلاً TxtComputername ثم أعمل متغير وخزن فيه اسم الكمبيوتر وليكن مثلاً (VarComputerName)بعد ذلك في حدث ( التحميل ) للنموذج الخاص بعرض التقرير ضع الكود التالي :

 Dim MyText1 As Object = CType(EmpRpt.ReportDefinition.ReportObjects("TxtComputername"), TextObject)
            MyText1.text = VarComputerNamet

جرب الكود فأنني لم أجربه وإذا لم يضبط معك أخبرنا

جزاك الله خيرا جارى التجربة والتحويل الى السى شارب يقدر ما استطيع

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

#4
ايمن نور العرب كتب:

جزاك الله خيرا جارى التجربة والتحويل الى السى شارب يقدر ما استطيع

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

اخى انا حاولت الكود الى السى شارب وهو بالتالى

object MyText1 = (TxtComputername)EmpRpt.ReportDefinition.ReportObjects("TxtComputername");

MyText1.text = VarComputerNamet;

ولاسف خطــــــا ...

ارجو ان تفهمى على الاقل هل هناك اسم ملف كريستال فى الكود وما هو ؟ والى ذلك وجزاك الله خيرا

#5

الحمد لله رب العالمين انى وجدت حل

TextObject txtReportTitle = (TextObject)bb.ReportDefinition.ReportObjects["TxtComputername"];

string reportTitle = "some text";

txtReportTitle.Text = reportTitle.ToString();

frm.crystalReportViewer1.ReportSource = bb;

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…