+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مثال للبحث بين تاريخين مشكلة تستحق الاهتمام (/showthread.php?tid=18519)
RE: مثال للبحث بين تاريخين مشكلة تستحق الاهتمام - nabil.1710 - 28-12-16
(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
و جزاك وجزا كل الاساتذة خيرا
RE: مثال للبحث بين تاريخين مشكلة تستحق الاهتمام - samawi - 15-04-17
هذا كود بحث بين تاريخين شغال 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()
RE: مثال للبحث بين تاريخين مشكلة تستحق الاهتمام - nabil.1710 - 06-05-20
(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 باكثر من طريقة ولكن كان يعطيني اخطاء يبدو الخطاء فى موضع الجملة داخل الكود
و شكرا لك استاذنا