[nabil.1710]

(28-12-16, 05:13 PM)مساعدة كتب : لكن تفضل الكود

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.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
      Dim report As New CrystalReport1

       report.SetDataSource(query.CopyToDataTable)

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

  End Sub

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