السلام عليكم
سؤال في datagridview وهو لدي برنامج لصالة رياضية يظهر البيانات على datagridview ومن ضمن الاعمدة (تاريخ انتهاء الاشتراك) والي اريده هو مقارنة تاريخ انتهاء الاشتراك بالتاريخ الحالي فأذاانتهاء التاريخ يظهر اللون الاحمر واذا مازال الاشتراك فعال يظهر اللون الاخضر وشكرا
كود :
Dim s As Integer
For s = 0 To DataGridView.RowCount - 1
If DataGridView.Item(1, s).Value.ToString.Trim = Now.ToString("dd/MM/yyyy") Then
DataGridView.Rows(s).DefaultCellStyle.BackColor = Color.Red
Else
DataGridView.Rows(s).DefaultCellStyle.BackColor = Color.Green
End If
Next
شكراً لك alktab
ولكن لم ينجح الكود في اظهار المطلوب
توضيح اكثر للمطلوب
عمود في الداتا قريد يظهر تاريخ نهاية الاشتراك , المطلوب مقارنة تاريخ هذا العمود بتاريخ اليوم او الحالي اذا اتضح ان التاريخ مساوى او اكبر من التاريخ الحالي يكون لون هذا العمود احمر
مرفق المثال بالتوفيق
اخوي alktab
جزاك الله خير واسف على عدم توضيح المطلوب بالصورة الصحيحة
برنامجي عبارة عن قاعدة بيانات اكسس مربوطة بـ vb.net لاظهار البيانات على datagrid والمطلوب هو نفس الموضوع السابق ويكون الحدث في تحميل (load) البيانات من قاعدة اكسس وعرضها في datagrid بدون حدث click
بمعنى عندما يشغل المستخدم البرنامج تظهر له البيانات على datagrid وفي نفس الوقت اذا تاريخ انتهاء الاشتراك فعال يكون لون الخلية اخضر واذا انتهى الاشتراك يكون لون الخلية احمر
اسف على الاطاله
من قائمة الحدث للداتا جريد فيو هاتختار Row Prepaint هاتدوس دبل كليك هاتحط الكود مع تعديل اسم العامود من your colum name لاسم العامود ائلى فيه تاريخ انتهاء الاشتراك
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value < Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
End If
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value > Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Green
End If
(06-04-15, 02:44 PM)dhetos كتب : [ -> ]من قائمة الحدث للداتا جريد فيو هاتختار Row Prepaint هاتدوس دبل كليك هاتحط الكود مع تعديل اسم العامود من your colum name لاسم العامود ائلى فيه تاريخ انتهاء الاشتراك
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value < Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
End If
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value > Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Green
End If
شكرا لك اخوي لردك على السؤال
جربت هذا الحدث وغيره من احداث الداتا قريد ولم يفلح الامر معي
اذا بأمكانك عمل مثال على اجابتك المذكورة ورفعه للموقع ليستفيد منه الجميع وشكرا
ملاحظة : نوع بيانات اسم الحقل في قاعدة اكسس (تاريخ / وقت)
(06-04-15, 05:58 PM)saeed1 كتب : [ -> ] (06-04-15, 02:44 PM)dhetos كتب : [ -> ]من قائمة الحدث للداتا جريد فيو هاتختار Row Prepaint هاتدوس دبل كليك هاتحط الكود مع تعديل اسم العامود من your colum name لاسم العامود ائلى فيه تاريخ انتهاء الاشتراك
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value < Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
End If
If DataGridView.Rows(e.RowIndex).Cells("your colum name").Value > Date.Now Then
DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Green
End If
شكرا لك اخوي لردك على السؤال
جربت هذا الحدث وغيره من احداث الداتا قريد ولم يفلح الامر معي
اذا بأمكانك عمل مثال على اجابتك المذكورة ورفعه للموقع ليستفيد منه الجميع وشكرا
ملاحظة : نوع بيانات اسم الحقل في قاعدة اكسس (تاريخ / رقم)
الكود ده انا شغال بيه وشغال تمام امشى بس على الخطوات ائلى مطتوبة وهايشتغل بس واسم العامود بتجيب من الداتا جريد فيو بتعمل ايديت كولم وتنزل تجيب الكولم نيم من تحت معلش مش هاقدر اعمل مثال حاليا علشان الكمبيوتر بتاع الشغل ميستحملش
اخوي dhetos
جربت الكود ويظهر اللون الاحمر لجميع حقول الداتا قريد ولا يقارن التاريخ المخزن بقاعدة البيانات بالتاريخ الحالي
(06-04-15, 07:28 PM)saeed1 كتب : [ -> ]اخوي dhetos
جربت الكود ويظهر اللون الاحمر لجميع حقول الداتا قريد ولا يقارن التاريخ المخزن بقاعدة البيانات بالتاريخ الحالي
بص ياريت تاخد اسكرين شوت وترفعه ولو اللون الاحمر على جميع الصفوف ممكن تغير> تعكسها خليها <
انا اسف على التاخير بس بس الجهاز ائلى فى الشغل مستحمل الاوفيس بالعافية لما روحت عملتلك برنامج تقدر تتابع بيه المشتركين عندك فى الصالة وبالتوفيق
ولو احتجت حاجة انشاء الله انا موجود
اااه صحيح البرنامج لو عايز تشغلو هاتلاقيه فى المسار ده
test\test\bin\x86\Debug