(24-10-17, 02:34 AM)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

(24-10-17, 07:40 AM)zaer كتب : الجعل المتغير ast في الفورم Form22 وخليه عام Public وقبل ما تستدعي الفورم Form22 ضع قيمة في المتغير مثل "add"

كود :

Form22.ast = "add"
Form22.Show()

وهذا التعديل للفورم Form22

كود :

 Public ast As String=""

 Private Sub Form22_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      load()
  End Sub

 Private Sub load()
      Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)
      If ast = "add" Then
          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
      Else
          Dim lst = From x In Me.dbvDataSet.DataTable1 Where x.ID = Val(folder.txtnamper.Text) - 0
          If lst.Count > 0 Then
              Me.ReportViewer1.LocalReport.DataSources(0).Value = lst.CopyToDataTable
              Me.ReportViewer1.RefreshReport()
          End If
      End If
  End Sub

---

اتخنقت وغيرت فى المشورع نفسه وتغلب على المشكله بس مش عارف ادمج التقريرين عن طريق supreport دورت على اليوتيوب و جوجل وعلى المنتدى نفسه ومش عارف وكمان فى بشمهندس بعت ليا مشروع ودامج التقريرين بس مش عارف ازاى كل محاول تطلع رسالة 
"data retrieval failed for the subreport"