للخبراء كيف اقوم بالبحث داخل DataGridView بواسطه شرط صغير ومعين ارجو منكم الافادة ... الشرط هو اذا كان الفرق بين
(colum2 = (date1
و
(colum3 = (date2
اي اذا كان الفرق بين حقل التاريخ الاول ( date1 )و حقل التاريخ التاني ( date2 ) هو فارق 3 ايام ... فيتم عرض الكود الخاص بعد تحقق الشرط في Listbox يرجى منكم المساعدة و الافادة وجزاكم الله كل خير الشرح موضوح بالصورة للمخرجات المطلوبة وتم ارفاق الملف للتعديل والفائدة ومشكورين اخواني الكرام .
لا يوجد اي تاريخين date1 date2 من القيم اللي انت كاتبها الفرق بينهم ثلا ايام ابدا
مع اني لست من الخبراء لذلك موضوعك بارك الله فيك لا يحتاج الى خبير يحتاج لقليل من البحث والتفكير فقط
ضع في الزر هذا الكود
كود :
For i As Integer = 0 To Database2DataSet.Table1.Rows.Count - 1
If DateDiff("d", Database2DataSet.Table1.Rows(i)("date 1").ToString, Database2DataSet.Table1.Rows(i)("date 2").ToString) = 3 Then
ListBox1.Items.Add(Database2DataSet.Table1.Rows(i)("code").ToString)
End If
Next
انا قمت ياضافة سجل الفرق بينهم ثلاثة
جرب مثالك بعد التعديل
دعوة طيبة
القصد من الفهم لحساب 3 ايام مابين ( ال date1 و date 2 ) فقط للتوضيح اكثر اخ Lion .... والله يعطيك الف عافية مع خالص شكري لك .
سلام
انتبه: اذا كنت تكتب التاريخ داخل قاعدت بيانات الاكسس بشكل يدوي يجب ان تبدا بالشهر وليس اليوم
ليعمل الكود بدل بين اليوم والشهر في التواريخ التي في قاعدت البيانات
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using dt As New DataTable
Dim c = New OleDb.OleDbDataAdapter("SELECT [code] FROM [Table1] WHERE DATEDIFF('d',[date 1],[date 2])=3", My.Settings.Database2ConnectionString).Fill(dt)
ListBox1.Items.AddRange((From r In dt.Rows Select r("code")).ToArray)
End Using
End Sub
موفقين