خطاء عند طلب عرض التقرير مع تمرير الباراميتر

السلام عليكم ورحمة الله وبركاته

في الواقع لا ادري اين الخطأ في كودك ولكن ربما استطيع مساعدتك بالتالي :-

هذا كود شبيه بالكود خاصتك وهو يقوم بعرض مبيعات عميل معين

حاول توفق كودك معه

 Dim Dt As New DataTable

		Try
			If GSQLConnection.State = ConnectionState.Open Then


				GSQLCmd.CommandText = "SELECT* FROM CategoriesIssue WHERE  CustomerID=" & CustomerNumber & "AND IssueDocDate BETWEEN @FDate AND @SDate"

				GSQLCmd.Parameters.Clear()
				GSQLCmd.CommandType = CommandType.Text
				GSQLCmd.Parameters.Add("@FDate", SqlDbType.DateTime).Value = Me.FirstDate
				GSQLCmd.Parameters.Add("@SDate", SqlDbType.DateTime).Value = Me.SecondDate
				GDR = GSQLCmd.ExecuteReader

				Dt.Clear()
				Dt.Load(GDR)

				GDR.Close()

				Dim report As New ReportSalesCustomerByInterval

				'========================================

				'هنا نقوم بجلب اسم الشركة والسجل التجاري والبطاقة الضريبيةمن قاعدة البيانات
				GSQLCmd.CommandText = "SELECT* FROM CompanyData"

				GSQLCmd.CommandType = CommandType.Text
				GDR = GSQLCmd.ExecuteReader
				GDR.Read()

				Dim crFormulas As FormulaFieldDefinitions

				Dim crFormulaTextField1, crFormulaTextField2, crFormulaTextField3, crFormulaTextField4, crFormulaTextField5, crFormulaTextField6 As FormulaFieldDefinition

				Dim TheCompany As String
				Dim TradeRegister As String
				Dim ExciesID As String

				TheCompany = GDR.GetSqlString(1)
				TradeRegister = GDR.GetSqlString(2)
				ExciesID = GDR.GetSqlString(3)
				crFormulas = report.DataDefinition.FormulaFields

				crFormulaTextField1 = crFormulas.Item("TheCompany")
				crFormulaTextField1.Text = "'" & TheCompany & "'"


				crFormulaTextField2 = crFormulas.Item("TradeRegister")
				crFormulaTextField2.Text = "'" & TradeRegister & "'"


				crFormulaTextField3 = crFormulas.Item("ExciesID")
				crFormulaTextField3.Text = "'" & ExciesID & "'"


				crFormulaTextField4 = crFormulas.Item("FristDate")
				crFormulaTextField4.Text = "'" & Me.FirstDate & "'"

				crFormulaTextField5 = crFormulas.Item("SecondDate")
				crFormulaTextField5.Text = "'" & Me.SecondDate & "'"

				crFormulaTextField6 = crFormulas.Item("SupplierName")
				crFormulaTextField6.Text = "'" & CustomerName & "'"

				report.SetDataSource(Dt)

				rptViewer.ReportSource = report

				rptViewer.ShowGroupTreeButton = False

				' rptViewer.ReportSource = rptDocument
				rptViewer.Zoom(85%)
				rptViewer.RefreshReport()
				GDR.Close()
				Dt.Clear()

			End If
		Catch Ex As Exception
			' MsgBox(Ex.Message)
		Finally
			GDR.Close()
		End Try


	End Sub

كما يبدو من جملة الاستعلام خاصتك انك تريد الاستعلام من خلال الرقم أي عن حقل رقمي بينما جملة الاستعلام هكذا تكون خاطئة

cm.commandtext="select * from table1 where id_no =' " & trim ( mm1 ) & " ' "

والصحيح ان تكون على هذا النحو

cm.commandtext="select * from table1 where id_no =" & var( mm1 )

جرب وشوف النتيجة

بالتوفيق