22-12-18, 02:14 PM
22-12-18, 03:21 PM
(22-12-18, 02:14 PM)عبدالرحمن بشري عمر كتب : [ -> ]السلام عليكم ورحمة الله
لدي مشكلة في ظهور البيانات في التقرير
ان اعمل الاتصال عن طريق الدتاسيت
وعليكم السلام ورحمة الله وبركاته
اخي تأكد من أن الـ DataTable التي تستخدمها في عرض البيانات في الداتا جريد فيو هي نفس الـ DataTable التي تستخدمها في عرض الكريستال ريبورت
كما هو موضح بالكود التالي
كود :
DT.Clear()
DA = New OleDbDataAdapter("select * from TBL", connAccess2007)
DA.Fill(DT)
DataGridView3.DataSource = DT
Dim report As New RptGlucose
report.SetDataSource(DT)22-12-18, 04:42 PM
هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
rebor.SetDataSource(dt)
Form39.CrystalReportViewer1.ReportSource = rebor
Form39.TopMost = True
Form39.Show()
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
rebor.SetDataSource(dt)
Form39.CrystalReportViewer1.ReportSource = rebor
Form39.TopMost = True
Form39.Show()
22-12-18, 08:17 PM
(22-12-18, 04:42 PM)عبدالرحمن بشري عمر كتب : [ -> ]هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
rebor.SetDataSource(dt)
Form39.CrystalReportViewer1.ReportSource = rebor
Form39.TopMost = True
Form39.Show()
وعليكم السلام ورحمة الله
الكود سليم فقد قمت بتجربته ويعمل بشكل صحيح
اذا كنت وضعت الكود داخل الحدث Form1_Load او Try او استخدمت On Error فلن تظهر لك الاخطاء التي تحصل
قم بوضع الكود كما هو في حدث Button بدون استخدم Try ولا OnError وستعلم اين المشكلة لديك