+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : تقرير كريستال ريبورت بلا بيانات (/showthread.php?tid=4481)
الصفحات:
1
2
تقرير كريستال ريبورت بلا بيانات - اسم العضو - 27-09-12
شكرا لك
كيف اعمل ربط للجداول؟
راح اجرب الموضوع اللي ارسلت لي
تقرير كريستال ريبورت بلا بيانات - abdullah - 27-09-12
انك لازم تسوي علاقة بين الجداول
بالمفتاح الاساسي
يعني مثلا id بالجدول الاول مرتبط بالجدول الثاني .
تقرير كريستال ريبورت بلا بيانات - اسم العضو - 27-09-12
حصلت هذا
http://vb.net-informations.com/crystal-report/vb.net_crystal_report_from_multiple_tables.htm
نفس اللي اسويه لكن برضه ماتجي معي
تقرير كريستال ريبورت بلا بيانات - اسم العضو - 27-09-12
بالنسبة للطباعة على word ماجات معاي
يطلع لي خطأ في هذا السطر
appDoc = aplication.Documents.Add(Template:=(Application.StartupPath & "\word.dotx"))
تقرير كريستال ريبورت بلا بيانات - اسم العضو - 27-09-12
هل اقدر احل المشكلة بمايكروسوفت ريبورت؟
تقرير كريستال ريبورت بلا بيانات - abdullah - 27-09-12
لا مو نفسة
شوف العلاقة بين الجداول
شايف الخط الاحمر فيه علاقات
هو سوى علاقة بين الجداول
لاحظ اللي قدامه علامة احمر السهم الصغير
يعني مثلا رقم 1 لازم تكون موجوده بكل الجداول عشان مرتبطة
----------------------------------
سوءال انت فاهم معنى كلامي العقلاقات بين الجداول بالاكسس ؟
تقرير كريستال ريبورت بلا بيانات - abdullah - 27-09-12
إقتباس :بالنسبة للطباعة على word ماجات معايسوءالك الثاني خليه بنفس الموضوع عشان اقدر افيدك اكثر
يطلع لي خطأ في هذا السطر
appDoc = aplication.Documents.Add(Template:=(Application.St artupPath & "\word.dotx"))
تقرير كريستال ريبورت بلا بيانات - abdullah - 27-09-12
شوف هذي قاعدة بيانات اكسس
لازم تكون كذا الجداول الحين انا اقدر اطبع الجدولين .
[ATTACH=CONFIG]321[/ATTACH]
شوف هذي علاقة بالاكسس هنا تقدر تضيف الجدولين وتطبع
لو عندك فيجوال 2010 اضفت لك مثال لان ماعندي 2008
تقرير كريستال ريبورت بلا بيانات - abdullah - 27-09-12
ولا يهمك هذا مثال ارفقته لك
[ATTACH]322[/ATTACH]
بس عاد فيجوال 2010 مادري يشتغل عندك ولا لا
اذا مافتح عندك شوف قاعدة البينات ابيك تسوي نفس اللي سويته مع قبل مع قاعدتك السابقة
وأمر الطباعة خليه كذا
كود :
Me.Validate()
Me.التعاميمBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database6DataSet)
Dim rpt As New CrystalReport1
rpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
rpt.SetDataSource(Me.Database6DataSet)
rpt.RecordSelectionFormula = "{التعاميم.المعرف}=" & المعرفTextBox.Text
Form2.CrystalReportViewer1.ReportSource = rpt
Form2.Show()