[alma_fandi]

شكرا Amir_alzubidy

احكيلك  الى عملته  
   

بعد هيك عملت  فورم  frmstatsitces1 وعملت فيه  ريبورت  فيور
وعملت  فورم frmReport  فيه Button داخل  هاد  Button الكود
 

كود :

      FrmComplete.firstdate = DateTimePicker1.Value
      FrmComplete.secanddate = DateTimePicker2.Value
      FrmComplete.Show()

 
اشتغل  تمام  بيعرض  الريبورت  فيو  خلال  تاريخين  بيفح  ريبورت  فيو طبيعي  

هلاء  انا  بدي يعرض  الريبورت  داخل  نفس الفورم  مو يفتح  فورم  تاني  وكمان يعمل  فلتر  للداتا جريد

كيف بنقدر نعدل ع الكود ؟

كود :

   


   Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       LoadData()

   End Sub



   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       Dim sql As String = "SELECT * FROM [Table1] "
       Using da As New OleDbDataAdapter(sql, Con)
           Dim dt As New DataTable
           da.Fill(dt)
           dgvList.DataSource = dt
       End Using
       Dim rep As New allReport1
       rep.SetDataSource(dt)
       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
       allReport1.firstdate = DateTimePicker1.Value
       allReport1.secanddate = DateTimePicker2.Value
       allReport1.Show()
   End Sub