[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

تم  المطلوب اخى و شكرا لمجهودك انا استديعت query لملئ داتا جريد فيو و  تم المطلوب عرض البيانات على داتا جريد فيو و على الكريستال ريبورت ..
و جزاك  وجزا كل  الاساتذة خيرا