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

كيف أربط التقرير الفرعي بالتقرير الرئيسي

مغلق
بدأه allam000 في 5 ديسمبر 2006 · 9 رد · 1,452 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

إخواني :

المشكلة تتلخص فيما يلي :

استخدم برنامج فيجوال بيسك الإصدار السادس وبرنامج كريستال ريبورت الإصدار العاشر

عندي جدولين في قاعدة بيانات اكسس.

عندما أعرض التقرير الرئيسي يظهر دون مشكلة وفقا لجملة sql التي كتبتها ولكن التقرير الفرعي يظهر لي جميع الحقول في الجدول الثاني .

الذي أريده هو أن أعرض الحقول التي أريد من الجدول الأول (كتقرير رئيسي ) والحقول المرتبطة بها في الجدول الثاني ( كتقرير فرعي )

لا أعرف طريقة كتابة ذلك الكود

أرجو المساعدة بإرفاق مثال بسيط

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

علما بأن برنامجي متعطل على ذلك الكود.

تم تعديل هذه المشاركة بواسطة allam000 في 5 ديسمبر 2006 في 19:09

#2

معقول ما في رد !!!!

#3

يا عمالقة المنتدى أين أنتم

#4

يا جماعة أحد يرد علينا حتى ولو يقول ما أعرف!!!!

أيه القصة ؟؟؟؟

وين الأخ المشرف صاحب دورة الكريستال ريبورت ؟؟؟

#5

السلام عليكم

انا يا اخى حبيت ارد بس انا ليس عندى حل لمشكلتك

ولكن حبيت اقولك ان فيه حد حاسس بمشكلتك

فنا عضو جديد وقمت بعمل مشاركتين ولم يرد على احد حتى الان

انا خلاص جالى احباط مش عارف اعمل ايه

عموما اصبر وربنا يسهل وحد يبعت لك الكود الذى تريده بالتوفيق.

#6

أخي رضا

بارك الله فيك

لقد أثلجت صدري بردك الجميل فجزاك الله خير

أخيرا أشعر أن فيه حد معايا في المنتدى يعني أنا مش تايه في الصحراء ولا حاجة

#7

عندما تريد ربط التقرير الفرعي بالرئيس بمجرد وضع اداة التقرير الفرعي تظهر لك مربع حوار اختر التقرير الفرعي ثم الي خانت linkاختر اسم حقل الربط

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#8

أخي KARIMSOFT

بارك الله فيك وجزاك الله خير

علمت بعد ردك هذا كم كنت أنا جاهلا لأن الأمر بسيط جدا وما كنت عارف أوصل للحل

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

#9

ااااذكر واجتهد والمنتدي كله معك

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#10

dim application as CRAXDRT.Application

Dim report1 as CRAXDRT.Report

Dim subRep as CRAXDRT.Report

set application=new CRAXDRT.Application

set Report1=application.OpenReport(App.path &"\Report_Name")

'Now Specify The Coneection Parameters.

Report1.Database.Tables(1).ConnectionProperties("Data Source")="Server Name"

Report1.Database.Tables(1).ConnectionProperties("User ID")="sa"

Report1.Database.Tables(1).ConnectionProperties("Password")="Pass"

'If There is a Sub Reports

set subRep=report1.OpenSubReport("SubReport Name")

SubRep.Database.Tables(1).ConnectionProperties("Data Source")="Server Name"

SubRep.Database.Tables(1).ConnectionProperties("User ID")="sa"

SubRep.Database.Tables(1).ConnectionProperties("Password")="Pass"

'To Display speical record DO

report1.RecordSelectionFormula="{Command1.Field_Name} = or > or < or ....." & text1.text

reeport1.DiscardSaveData

SubRep.DiscardSaveData

CRV.reportSource=report1

CRV.ViewReport

dim application as CRAXDRT.Application

Dim report1 as CRAXDRT.Report

Dim subRep as CRAXDRT.Report

set application=new CRAXDRT.Application

set Report1=application.OpenReport(App.path &"\Report_Name")

'Now Specify The Coneection Parameters.

Report1.Database.Tables(1).ConnectionProperties("Data Source")="Server Name"

Report1.Database.Tables(1).ConnectionProperties("User ID")="sa"

Report1.Database.Tables(1).ConnectionProperties("Password")="Pass"

'If There is a Sub Reports

set subRep=report1.OpenSubReport("SubReport Name")

SubRep.Database.Tables(1).ConnectionProperties("Data Source")="Server Name"

SubRep.Database.Tables(1).ConnectionProperties("User ID")="sa"

SubRep.Database.Tables(1).ConnectionProperties("Password")="Pass"

'To Display speical record DO

report1.RecordSelectionFormula="{Command1.Field_Name} = or > or < or ....." & text1.text

reeport1.DiscardSaveData

SubRep.DiscardSaveData

CRV.reportSource=report1

CRV.ViewReport

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

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

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

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

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

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