15-08-16, 10:47 AM
السلام عليكم
قمت بعمل داتا بيس Access وقمت بعمل Quary لفئة Report وعندما حبيت اضيفها كل شيء تمام ماعدا Report كل ما اضيف البيانات يقول لي تأكد من البيانات نسيت التاريخ او اي شيء اخر .
الكود اعتقد بانه يوجد به أخطاء لكن .
قمت بعمل داتا بيس Access وقمت بعمل Quary لفئة Report وعندما حبيت اضيفها كل شيء تمام ماعدا Report كل ما اضيف البيانات يقول لي تأكد من البيانات نسيت التاريخ او اي شيء اخر .
الكود اعتقد بانه يوجد به أخطاء لكن .
كود :
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Date", Form4.DateTimePicker1.Value))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Carno", Form4.TextBox1.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_No", Form4.TextBox2.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Total", Form4.TextBox3.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Warrenty", Form4.TextBox4.Text))
Try
DataDataSet.report_Query.Rows.Clear()
For Each row As DataGridViewRow In Form4.DataGridView1.Rows
If Form4.DataGridView1.AllowUserToAddRows And row.Index = Form4.DataGridView1.Rows.Count - 1 Then Exit For
DataDataSet.report_Query.Rows.Add((From c In row.Cells Select c.Value).ToArray)
Next
Catch ex As Exception
MsgBox("تاكد من البيانات")
Return
End Try
' ربط الداتاست بالتقرير
ReportViewer1.LocalReport.DataSources(0).Value = DataDataSet.report_Query
Me.ReportViewer1.RefreshReport()