تلوين صف في الداتاقريد - نسخة قابلة للطباعة

تلوين صف في الداتاقريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7561)

تلوين صف في الداتاقريد - smiley - 04-02-13

السلام عليكم ورحمة الله وبركاته :
لدي في المثال المرفق قاعدة بيانات تحتوي على الآتي :
rname : رقم المستاجر
rdate: تاريخ الإيجار
edate : تاريخ نهاية الإيجار

قمت بتعبئة بيانات في قاعدة البيانات وربطها مع datagridview
-------
الشيء الذي أريده هو في حال أدخلنا في الحقل edate قيمة تاريخ تكون مساوية لتاريخ الكومبيوتر ,
يتم تلوين الصف بالكامل الذي يوجد به ذلك الحقل في الداتاقريد بلون معين .

تلوين صف في الداتاقريد - smiley - 04-02-13

- هناك طريقتان نستطيع اختبار الحقل edate بهما
الطريقة الاولى عن طريق قاعدة البيانات حسب التالي :

PHP كود :

For i= 0 To ds.Tables("rent").Rows.Count - 1 
( |If CDate(Now).ToString("MM/dd/yyyy") = CDate(ds.Tables("rent").Rows(i).Item("edate")).ToString("MM/dd/yyy 

ثم بعد ذلك يتبقى ان يتم تلوين الصف في الداتاقريد الذي يحتوي على الحقل الذي به التاريخ المساوي للتاريخ الكومبيوتر

- الطريقة الثانية من خلال قراءة حقول العمود edate مباشرة في الداتاقريد ثم ان وجد صف به الشرط يقوم بتلوين الصف بالكامل

انا حاولت يا اخوان .. وعملت مابوسعي ان اعمله .....
الرجاء منكم اللي فهمني فيكم لا يبخل علينا باللي عنده
ودمتم

تلوين صف في الداتاقريد - kamel2012 - 04-02-13

PHP كود :

For u = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(u).Cells(2).Value = CDate(Now).ToString("dd/MM/yyyy") Then
                DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red
            End If
        Next 

تلوين صف في الداتاقريد - smiley - 04-02-13

جزيت خيرا

تلوين صف في الداتاقريد - عبد الله - 05-02-13

kamel2012 كتب :
PHP كود :

For u = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows(u).Cells(2).Value = CDate(Now).ToString("dd/MM/yyyy") Then DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red End If Next

السلام عليكم ورحمة الله وبركاته

ما شاء الله أخي شفرة رائعة ، بارك الله فيك ، لدي إضافة في السؤال بعد إذن صاحب الموضوع :
طيب كيف لي بتلوين الصف إذا كانت الخلية(2) نصها يحتوي على جزء من كلمة ؟

تلوين صف في الداتاقريد - kamel2012 - 05-02-13

PHP كود :

For u = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(u).Cells(2).Value.ToString.Contains("اكتب هنا اى حرف او كلمه المراد البحث عنها") Then
                DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red
            End If
        Next 

واذا كنت تبحث عن طريق كلمه موجوده فى textbox يبقى الكود هكذا

PHP كود :

For u = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(u).Cells(2).Value.ToString.Contains(TextBox1.Text.Trim) Then
                DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red
            End If
        Next 