[نبيل فتحى]

(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

مشكله غريبه جداا فى فواتير المبيعات فى زرار الطباعه بيشتغل تمام بنفس الكود بس لما بفتح الفواتير بشكل تانى من مكان تانى التقرير بيطلع فاضى

كود :

  Private Sub Form22_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If folder.ast = "add" Then
           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
       Else
           Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)
           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

حتى لو من غير if