منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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 لملئ داتا جريد فيو و  تم المطلوب عرض البيانات على داتا جريد فيو و على الكريستال ريبورت ..
و جزاك  وجزا كل  الاساتذة خيرا

هذا كود بحث بين تاريخين شغال 100%

Dim query As String = "Select * From [Salary] Where [date1] Between @date1 And @date2"
Dim commandSelect As New SqlCommand(query, con)

commandSelect.Parameters.AddWithValue("@date1", DateTimfirst.Value.Date)
commandSelect.Parameters.AddWithValue("@date2", DateTimeend.Value.Date)
dr = commandSelect.ExecuteReader
While dr.Read()

If (dr(1) = TextBoxco.Text) And (TextBoxtypsal.Text = "Hour Works") Then
total_adver = total_adver + dr(5)
total_bonus = total_bonus + dr(6)
payhour = payhour + dr(7)
total_sal_weeek = payhour + total_bonus - total_adver
End If

If (dr(1) = TextBoxco.Text) And (TextBoxtypsal.Text = "Ended Works") Then
total_adver = total_adver + dr(5)
total_bonus = total_bonus + dr(6)
oayquntite = oayquntite + dr(8)
total_sal_weeek = oayquntite + total_bonus - total_adver
End If

If (dr(1) = TextBoxco.Text) And (TextBoxtypsal.Text = "Week's Statec") Then
total_adver = total_adver + dr(5)
total_bonus = total_bonus + dr(6)
total_sal_weeek = week + total_bonus - total_adver
End If
End While

Labeltotbonus.Text = total_bonus
Labeltotadver.Text = total_adver
Labeltotsal.Text = total_sal_weeek

con.Close()

(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 باكثر من طريقة ولكن كان يعطيني اخطاء يبدو الخطاء فى موضع الجملة داخل الكود
و شكرا لك استاذنا