[moh61]

للخبراء كيف اقوم بالبحث داخل 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

انا قمت ياضافة سجل الفرق بينهم ثلاثة

جرب مثالك بعد التعديل

دعوة طيبة

  WindowsApplication2.zip (الحجم : 236.85 ك ب / التحميلات : 37)

[moh61]

القصد من الفهم لحساب 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

موفقين