+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=35042)
استفسار بسيط ممكن المساعدة - العطر الرايق - 31-05-20
السلام عليكم ورحمة الله
كل عام وانتم بخير
يوجد لدى قاعدة بيانات بها اسماء وتواريخ
المطلوب تلوين الصف باللون الاحمر في حال مرور اكثر من 60 يوم او اكثر من التاريخ الموجود بالقاعدة
واللون الاصفر قبل 60 يوم بـ 5 ايام .
ولكم جزيل الشكر
مثال :
RE: استفسار بسيط ممكن المساعدة - ابراهيم ايبو - 31-05-20
السلام عليكم اخي الكريم
تابع هذا الرابط وفي الرد الاخير يوجد مثال فيه الكثير مما تتساءل عنه
http://vb4arb.com/vb/showthread.php?tid=34944
RE: استفسار بسيط ممكن المساعدة - العطر الرايق - 31-05-20
اشكرك اخي الكريم . على الرد ولكن الملف لم يعمل لدى
ان امكن تكتب لي الكود المطلوب اكون لك شاكر
RE: استفسار بسيط ممكن المساعدة - ابراهيم ايبو - 31-05-20
السلام عليكم اخي الكريم
اليك جملتين فور الاولى ستتحقق من ان التاريخ اقل من التاريخ الحالي بأكثر من 60 يوم عندها سيتلون الصف باللون الاحمر
والثانية ستتحقق من ان التاريخ مساوي التاريخ الحالي ناقص 55 يوم سيتلون الصف باللون الاصفر
كود :
Dim kk As Date = Now.ToString("dd/MM/yyyy")
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(3).Value < kk.AddDays(-60) Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
'========================
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(3).Value = kk.AddDays(-55) Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
End If
Nextكود :
For i As Integer = 0 To DataGridView1.Rows.Count - 2RE: استفسار بسيط ممكن المساعدة - العطر الرايق - 31-05-20
مشكوووور اخي الكريم على مساعدتك ولك فائق ودي
RE: استفسار بسيط ممكن المساعدة - ابراهيم ايبو - 31-05-20
الحمد لله والشكر لله
ولك ايضا اخي العطر الرايق