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

اخفاء عمود من التقرير حسب اختيار المستخم ..؟؟

مغلق
بدأه ابوخالد العيدروس في 26 نوفمبر 2006 · 8 رد · 966 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي تقرير يعرض البيانات من جدول

عملت جملة ال sql كالتالي :

select * from ACCOUNTS

واستخدمت الفورمولا لفلترة النتائج

و لكني اريد اخفاء عمود كامل بحيث لايظهر حسب اختيار المستخدم

فهل من طريقة لذلك ؟؟

وشكرا

#2

السلام عليكم

الطريقة أن تعمل ثلاثة ممررات في إجراءٍ ما , الاول يأخذ اسم عنوان الحقل Header Text و الثاني يأخذ اسم الحقل FieldObject Name

و الثالث يأخذ قيمة منطقية Boolean Value لإخفاء أو إظهار الحقل.

وعن طريق عناصر التقرير تقوم بإخفاء الحقل الغير مرغوب فيه أو إظهارها. إليك ذلك.

Imports CrystalDecisions.CrystalReports.Engine


 Private Sub btnHideID_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles btnHideID.Click
		HideOrShowField("Text1", "ID1", True)
		'To show field again then
		'HideOrShowField("Text1", "ID1", False)
	End Sub

	Private Sub HideOrShowField(ByVal HeaderText As String, _
	ByVal FieldName As String, ByVal Status As Boolean)

		'Hide the Field Header Object.
		Dim HiddenHeaderText As TextObject = _
		  rpt1.ReportDefinition.ReportObjects(HeaderText)
		HiddenHeaderText.ObjectFormat.EnableSuppress = Status


		'Hide the Field Object in the report.
		Dim HiddenField As FieldObject = _
		rpt1.ReportDefinition.ReportObjects(FieldName)
		HiddenField.ObjectFormat.EnableSuppress = Status
		CRV.ReportSource = rpt1

	End Sub

أما إذا كان الحقل في قسم معين فيتم الوصول إليه بهذا الشكل.

 rpt1.ReportDefinition.Sections("mySection").ReportObjects(FieldName)

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#4

استاذي الغملاسي ..

قمت بعمل التالي بالنسبة لعنوان الحقل :

Dim HiddenHeaderText As TextObject = _
		  rpt1.ReportDefinition.ReportObjects("الرصيد")

ولكن ظهرت لي رسالة خطأ على هذا السطر مفادها

اقتباس
Invalid ReportObject Name

ونفس الشي بالنسبة لاسم الحقل

Dim HiddenField As FieldObject = _
		rpt1.ReportDefinition.ReportObjects("AccAmount")

ولكن ظهرت لي رسالة خطأ على هذا السطر مفادها

اقتباس
Invalid ReportObject Name

فما هو الحل ؟؟؟

وان امكن ان تضع لي مثال بسيط عن هذه المسألة ولك كل الشكر والتقدير ...

#5

السلام عليكم

أخي هل أنت اسميت العنوان في الـ Object name بالاسم الرصيد ؟

لتأكد من ذلك بالزر الايمن على العنوان و اختر Format Text ثم في الـ Common Tab

ضع في الـ Object name الاسم الرصيد أو انسخ الاسم الحالي للكود ...

وكذلك بالنسبةٍ للحقل .

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#6

استاذي الغملاسي

تحياتي لك

لم اجد في ال CommonTab اي شيء بخصوص Object name ..!!!

علما بانني استخدم VS 2003

شكرا لك وللجميع

#7

شاهد الصورة بالمرفق أخي العزيز

للتنوية العنصر اي كان في التقرير المفتوح عبر الـ Visual Stdio.NET دائماً يكون اختيار خصائصه من Format Object

وليس Format Text كما هو في فتح التقرير عبر البرنامج الاصلي.

بالتوفيق إن شاء الله .

post-17025-1164894492_thumb.jpg

في المثال يتضح المقال

#8

الف شكر لك استاذي الغملاسي ..

استطعت ان اغير اسم ال object و ال feild من خلال نافذة الخصائص الموجودة على اليمين ..

يعطيك العافية

#9

ولا شكر على واجب.

في المثال يتضح المقال

هذا الموضوع مغلق.

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

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

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

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

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