+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : للخبراء كيف اقوم بالبحث داخل DataGridView اذا تحقق شرط صغير ومعين ارجو منكم الافادة (/showthread.php?tid=13125)
للخبراء كيف اقوم بالبحث داخل DataGridView اذا تحقق شرط صغير ومعين ارجو منكم الافادة - moh61 - 04-09-15
للخبراء كيف اقوم بالبحث داخل DataGridView بواسطه شرط صغير ومعين ارجو منكم الافادة ... الشرط هو اذا كان الفرق بين
(colum2 = (date1
و
(colum3 = (date2
اي اذا كان الفرق بين حقل التاريخ الاول ( date1 )و حقل التاريخ التاني ( date2 ) هو فارق 3 ايام ... فيتم عرض الكود الخاص بعد تحقق الشرط في Listbox يرجى منكم المساعدة و الافادة وجزاكم الله كل خير الشرح موضوح بالصورة للمخرجات المطلوبة وتم ارفاق الملف للتعديل والفائدة ومشكورين اخواني الكرام .
RE: للخبراء كيف اقوم بالبحث داخل DataGridView اذا تحقق شرط صغير ومعين ارجو منكم الافادة - أبو عمر - 04-09-15
لا يوجد اي تاريخين 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انا قمت ياضافة سجل الفرق بينهم ثلاثة
جرب مثالك بعد التعديل
دعوة طيبة
[attachment=7788]
RE: للخبراء كيف اقوم بالبحث داخل DataGridView اذا تحقق شرط صغير ومعين ارجو منكم الافادة - moh61 - 04-09-15
القصد من الفهم لحساب 3 ايام مابين ( ال date1 و date 2 ) فقط للتوضيح اكثر اخ Lion .... والله يعطيك الف عافية مع خالص شكري لك .
RE: للخبراء كيف اقوم بالبحث داخل DataGridView اذا تحقق شرط صغير ومعين ارجو منكم الافادة - الطالب - 04-09-15
سلام
انتبه: اذا كنت تكتب التاريخ داخل قاعدت بيانات الاكسس بشكل يدوي يجب ان تبدا بالشهر وليس اليوم
ليعمل الكود بدل بين اليوم والشهر في التواريخ التي في قاعدت البيانات
كود :
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موفقين