28-10-14, 02:59 AM
(آخر تعديل لهذه المشاركة : 28-10-14, 03:00 AM {2} بواسطة البراء.
تعديل السبب: خطأ
)
بسم الله الرحمن الرحيم
اخي ابو ايهاب الغالي شرح ممتاز وجعله الله في ميزان حسناتك
المشكلة تظهر لي رسالة خطأ وسار يومين ومش قادر احلها الرسالة التالية an error occurred during local report processing an error has occurred during report processing
الفكرة هي كيف افلتر البيانات المراد عرضها في التقرير يعني في عندي اكثر من خيار مثل اسم الطالب رقم الطالب تاريخ ميلاد الطالب حسب ما احدد من الخيارات تظهر النتيجة في التقرير مع العلم الكود المستخدم هو
Function GetData() As DataTable
dim da As OleDb.OleDbDataAdapter
da = New OleDbDataAdapter(Nothing, con)
Try
ds.Tables("childTable").Clear()
Catch ex As Exception
End Try
Dim sql1 As String
sql1 = ""
sql1 = SELECT tb_students.* FROM tb_students WHERE tb_students.Students_num=" & Val(TextBox1.Text) & ""
da.SelectCommand.CommandText = sql1
da.Fill(ds, "childTable")
Return ds.Tables(0)
End Function
ReportViewer1.Reset()
ReportViewer1.ProcessingMode = ProcessingMode.Local
ReportViewer1.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory + "Reports\rpt1Demo.rdlc"
Dim rds = New ReportDataSource()
rds.Name = "dsCustomer"
rds.Value = GetData()
ReportViewer1.LocalReport.DataSources.Add(rds)
ReportViewer1.RefreshReport()
بانتظار رد وابداع ابوايهاب
اخي ابو ايهاب الغالي شرح ممتاز وجعله الله في ميزان حسناتك
المشكلة تظهر لي رسالة خطأ وسار يومين ومش قادر احلها الرسالة التالية an error occurred during local report processing an error has occurred during report processing
الفكرة هي كيف افلتر البيانات المراد عرضها في التقرير يعني في عندي اكثر من خيار مثل اسم الطالب رقم الطالب تاريخ ميلاد الطالب حسب ما احدد من الخيارات تظهر النتيجة في التقرير مع العلم الكود المستخدم هو
Function GetData() As DataTable
dim da As OleDb.OleDbDataAdapter
da = New OleDbDataAdapter(Nothing, con)
Try
ds.Tables("childTable").Clear()
Catch ex As Exception
End Try
Dim sql1 As String
sql1 = ""
sql1 = SELECT tb_students.* FROM tb_students WHERE tb_students.Students_num=" & Val(TextBox1.Text) & ""
da.SelectCommand.CommandText = sql1
da.Fill(ds, "childTable")
Return ds.Tables(0)
End Function
ReportViewer1.Reset()
ReportViewer1.ProcessingMode = ProcessingMode.Local
ReportViewer1.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory + "Reports\rpt1Demo.rdlc"
Dim rds = New ReportDataSource()
rds.Name = "dsCustomer"
rds.Value = GetData()
ReportViewer1.LocalReport.DataSources.Add(rds)
ReportViewer1.RefreshReport()
بانتظار رد وابداع ابوايهاب
الله المستعان
