[nabil.1710]

(27-12-16, 10:54 PM)مساعدة كتب : تفضل هذه المحاولة
لاحظت انك تعتمد على الاستعلام (جدول1_استعلام)

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim query As IEnumerable(Of adxDataSet.جدول1_استعلامRow) =
           AdxDataSet.جدول1_استعلام.
           Where(Function(x As adxDataSet.جدول1_استعلامRow) x.اسم_العميل.Equals(ComboBox1.Text) And
                     x.تاريخ >= DateTimePicker1.Value.Date And x.تاريخ <= DateTimePicker2.Value.Date)

       If query.Count > 0 Then
           Me.DataGridView1.DataSource = query.CopyToDataTable
       End If

   End Sub

---

بالنسبة للتقارير كل ما عليك ربط ناتج الاستعلام query بالتقرير مثل ما تم ربطه هنا مع الداتاجريدفيو

اخى  الفاضل الكود  يعمل و بسم  الله ما شاء الله هذه المشاركة بها اكثر من طريقة للبحث  بين تاريخين ..

انا استخدمة هذا الكود لعرض التقرير ولكن يرفع البيانات بالكامل الفرز يتم على داتا جريد فيو ولا يتم على التقرير 


   Dim report As New CrystalReport1

        report.SetDataSource(AdxDataSet)

        Form2.CrystalReportViewer1.ReportSource = report
        Form2.Show()