21-08-16, 02:05 PM
(آخر تعديل لهذه المشاركة : 21-08-16, 02:25 PM {2} بواسطة 0theghost0.)
اثناء الكتابة اليدوية بالارقام لايحدث اي خطأ
واذا قمت بكتابة اي كلام كان عربي او انجلينزي يحدث هذا الخطأ
اتمنى ان تفيدوني
الكود :
وين الخبراء رحم الله والديكم خبروني ويش الخطأ
واذا قمت بكتابة اي كلام كان عربي او انجلينزي يحدث هذا الخطأ
اتمنى ان تفيدوني
الكود :
كود :
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Date", Ar_Fr5.DateTimePicker1.Value))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Carno", Ar_Fr5.TextBox1.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_No", Ar_Fr5.TextBox2.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Total", Ar_Fr5.TextBox4.Text))
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Warrenty", Ar_Fr5.TextBox3.Text))
Try
DataSet1.DataTable1.Rows.Clear()
For Each row As DataGridViewRow In Ar_Fr5.DataGridView1.Rows
If Ar_Fr5.DataGridView1.AllowUserToAddRows And row.Index = Ar_Fr5.DataGridView1.Rows.Count - 1 Then Exit For
DataSet1.DataTable1.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 = DataSet1.DataTable1
Me.ReportViewer1.RefreshReport()
وين الخبراء رحم الله والديكم خبروني ويش الخطأ