[مساعدة]

لكن تفضل الكود

كود :

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