28-12-16, 06:15 PM
(28-12-16, 05:13 PM)مساعدة كتب : لكن تفضل الكودتم المطلوب اخى و شكرا لمجهودك انا استديعت query لملئ داتا جريد فيو و تم المطلوب عرض البيانات على داتا جريد فيو و على الكريستال ريبورت ..
كود :
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
و جزاك وجزا كل الاساتذة خيرا