[zaer]

جرب هذا التعديل

كود :

     Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)

     Dim lst = From x In Me.dbvDataSet.DataTable1 Where x.ID = Val(folder.txtnamper.Text) - 1
      If lst.Count > 0 Then
         Me.ReportViewer1.LocalReport.DataSources(0).Value = lst.CopyToDataTable
         Me.ReportViewer1.RefreshReport()
     End If