+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت (/showthread.php?tid=31613)
اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - nazarakrawi - 02-10-19
السلام عليكم
ارجو مساعدتى في حل عرض تقرير كريستال ريبورت
دائما يتم عرض بيانات قديمة وعند تحديث التقرير يتم جلب بيانات حديثة
اذ امكن من الاخوة طريقة عند عرض تقرير كريستال ريبورت تكون بيانات جديدة ولسيت قديمة
تم ارفاق الملف 
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - asemshahen5 - 02-10-19
عدل الكود التالي :
PHP كود :
Sub dvgfill()
da.Clear()
dt = New OleDbCommand("select * from AD", con)
con.Open()
da.Load(dt.ExecuteReader)
rpt1.SetDataSource(da)
CrystalReportViewer1.ReportSource = rpt1
CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = ""
CrystalReportViewer1.RefreshReport()
End Sub
او هذا الكود :
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Application.DoEvents()
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\NZ1.accdb"
ConInfo.ConnectionInfo.DatabaseName = "NZ1.accdb"
ConInfo.ConnectionInfo.UserID = "Admin"
ConInfo.ConnectionInfo.Password = ""
rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
Dim frm As New FRMM
frm.CrystalReportViewer1.ReportSource = rpt1
frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = ""
frm.CrystalReportViewer1.RefreshReport() ''نسيت هذا السطر
frm.ShowDialog()
End Sub
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - nazarakrawi - 02-10-19
مشكورررر اخي كود الثاني نفع معي بس مشكلة يطلع رسالة خطا ثم يتحدث تقرير بطريقة الصحيحة
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - asemshahen5 - 02-10-19
هذا مثالك بعد التعديل .
[attachment=23085]
[attachment=23086]
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - nazarakrawi - 02-10-19
مشكوررررر تم حل المشكلة
لكن لي طلب ياستاد غالي
ممكن تصدير البيانات الى جدول اكسل
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - asemshahen5 - 02-10-19
جرب هذا الكود :
PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Private Sub BtnExportToExcel_Click(sender As Object, e As EventArgs) Handles BtnExportToExcel.Click
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New ExcelFormatOptions
CrDiskFileDestinationOptions.DiskFileName = "D:\crystalExport.xls"
CrExportOptions = rpt1.ExportOptions
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.Excel
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
rpt1.Export()
End Sub
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - nazarakrawi - 02-10-19
مشكورررررررررر اخي نجت عملية في مشكلة
يكون جدول اكسل على ارقام بدون جدول اتنمى ان يكون على شكل جدول اكسل مع تنسيق
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - asemshahen5 - 02-10-19
هذا كود ثان :
PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Private Sub ExportToExcel1_Click(sender As Object, e As EventArgs) Handles ExportToExcel1.Click
Dim exportOpts As New ExportOptions()
Dim excelFormatOpts As New ExcelFormatOptions()
Dim diskOpts As New DiskFileDestinationOptions()
exportOpts = rpt1.ExportOptions
excelFormatOpts.ExcelUseConstantColumnWidth = True
exportOpts.ExportFormatType = ExportFormatType.ExcelRecord
exportOpts.FormatOptions = excelFormatOpts
exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
diskOpts.DiskFileName = "D:\\crystalExport.xls"
exportOpts.DestinationOptions = diskOpts
rpt1.Export()
End Sub
RE: اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت - mohamed Matrix - 21-08-23
ممكن حل للمشكلة دي عندي مع العلم انا بستخدم sql server