منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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



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

PHP كود :
For i0 To ds.Tables("rent").Rows.Count 
( |If CDate(Now).ToString("MM/dd/yyyy") = CDate(ds.Tables("rent").Rows(i).Item("edate")).ToString("MM/dd/yyy 

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

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

انا حاولت يا اخوان .. وعملت مابوسعي ان اعمله .....
الرجاء منكم اللي فهمني فيكم لا يبخل علينا باللي عنده
ودمتم
PHP كود :
For 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 
جزيت خيرا
kamel2012 كتب :
PHP كود :
For 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) نصها يحتوي على جزء من كلمة ؟
PHP كود :
For 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 0 To DataGridView1.Rows.Count 1
            
If DataGridView1.Rows(u).Cells(2).Value.ToString.Contains(TextBox1.Text.TrimThen
                DataGridView1
.Rows(u).DefaultCellStyle.BackColor Color.Red
            End 
If
        
Next