تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير لون صف في DataGridView
#1
ارجوا مساعدتي قمت بعمل برنامج يعتمد على التواريخ اريد كود يقوم بتغيير خلفيه كل السجلات في DataGridView التي  تبقى لها مثلا 20 يوم الى اللون الاحمر

وشكرا لكم
الرد
تم الشكر بواسطة:
#2
السلام عليكم

هذا كود تغيير الالوان عليكى وضع الشرط المناسب لتغيير اللون
اتمنى ان اكون قد افدتك
كود :
For i = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(0).Value = 6 Then
               DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
           End If
Next
اذا كنتى لا تعرفين الشرط المناسب اخبرينى هل تحتفظين بالبيانات على هيئة تاريخ ام ماذا لكى استطيع ان اضع لكى الشرط المناسب
الرد
تم الشكر بواسطة: امل حسن
#3
شكرا اخي على ردك
لا اعرف كيف الشرط واذا امكن كيف عملها بالطريقتين هيئه نص وهئيه تاريخ

للتوضيح اكتر لما اريد
انا عندي برنامج يعتمد على قاعدة بيانات اكسس حيث يظهر البيانات في DataGridView اريد عندما يتبقى لاتنتهاء التاريخ مثلا ايام معينه ان يتغير لون الصف في DataGridView الى لون احمر
الرد
تم الشكر بواسطة:
#4
جرب هذا الكود
PHP كود :
For As Integer 0 To Datagridview1.Rows.Count 1
        For ColNo 
As Integer 4 To 7
            If Datagridview1
.Rows(i).Cells(ColNo).Value 20 Then

                Datagridview1
.Rows(i).Cells(ColNo).Style.BackColor Color.Red
            End 
If
 
       Next
    Next 
الرد
تم الشكر بواسطة: امل حسن
#5
اين اضع الكود في اي حدث؟؟

واذا يجب تغيير اي شي بالكود ليناسب مع برنامج فما هو
الرد
تم الشكر بواسطة:
#6
اثناء تحميل الداتا جريد بالبيانات
الرد
تم الشكر بواسطة: امل حسن
#7
قمت بارفاق مثال على البرنامج ارجو التعديل عليه لكي تتضح اليه عمل الكود 
وكما اسلفت سابقه الاعتماد على التاريخ


الملفات المرفقة
.zip   Example.zip (الحجم : 1.05 م ب / التحميلات : 170)
الرد
تم الشكر بواسطة:
#8
PHP كود :
 Private Sub Loadgrid()

 
       'اسناد جمله الاستعلام ومصدر الاتصال  الي كائن الامر 
        Cmd.Connection = Cn
        Cmd.CommandType = CommandType.Text ' 
لو لم تكتب هذا السطر فهي الافتراضي 
        Cmd
.CommandText "SELECT * FROM employees order by Emp_code "

 
       Cn.Open() ' فتح الاتصال 
        '
حذف البيانات القديمه من الداتا تيبل 
        dt
.Clear()
 
       ' تحميل السجلات العائده من الاستعلام في الداتا تيبل
        dt.Load(Cmd.ExecuteReader)
        ' 
ربط مصدر البيانات للدات جريد
        DataGridView1
.DataSource dt


        For i 
0 To DataGridView1.Rows.Count 1
            If CDate
(DataGridView1.Rows(i).Cells(2).Value) <= Now.AddDays(20Then
                DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Red
                DataGridView1
.Rows(i).DefaultCellStyle.SelectionBackColor Color.Red
            End 
If
 
       Next


        Cn
.Close() ' غلق الاتصال 


        ' 
كود التحكم في عرض الخلايا 
        DataGridView1
.Columns(0).Width 150
        DataGridView1
.Columns(2).Width 150


        
' الكود التالي لتوسيط الأعمدة
        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter



        '
تحديد السطر بالكامل وليس خليه واحده
        DataGridView1
.SelectionMode DataGridViewSelectionMode.FullRowSelect

        
' تغير اسامي العناوين للهيدر
        DataGridView1.Columns(0).HeaderText = "الكود"
        DataGridView1.Columns(1).HeaderText = "الاسم"
        DataGridView1.Columns(2).HeaderText = "التاريخ"
        ' 
توسيط الهيدر 
        DataGridView1
.ColumnHeadersDefaultCellStyle.Alignment DataGridViewContentAlignment.MiddleCenter

        
' كود جعل ثاني خليه  'الاسم' تأخذ باقي عرض الداتا جريد
        DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        ' 
تلوين سطر وسطر 
        DataGridView1
.AlternatingRowsDefaultCellStyle.BackColor Color.LightGray

        rowSelection
()
 
   End Sub 
الرد
تم الشكر بواسطة: امل حسن
#9
تفضلي أختي العزيزة
لقد تم معالجة المشروع بناء لطلبك

المشروع بعد التعديل :
.rar   khodor1985 - Example.rar (الحجم : 1 م ب / التحميلات : 359)

أتمنى لك التوفيق
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: امل حسن
#10
اشكركم جميعا على المساعده
وهذا ما اريده
لدي استفسار لو ممكن شرح الكود
واذا اريد نقل الكود على مشروع اخر ما الذي يجب تغييره في الكود ليتناسب مع المشروع الجديد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تغيير الطابعه الافتراضيه عند الطباعه allo5_800 2 52 18-11-18, 11:15 AM
آخر رد: allo5_800
  شرط في DataGridView dasktop 5 119 16-11-18, 03:29 PM
آخر رد: عبدالله الدوسري
  [سؤال] مقارنة بين عمودين في datagridview nashnoush 1 48 15-11-18, 12:56 AM
آخر رد: nashnoush
  كيفية تغيير الباس وورد يوميا احمد خطاب 4 149 27-10-18, 05:16 PM
آخر رد: احمد خطاب
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 143 22-10-18, 12:15 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 134 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 300 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] عدم تغيير قيمة NumericUpdown Simo1991 7 145 09-10-18, 12:21 PM
آخر رد: Simo1991
Smile [VB.NET] تغيير شكل الفورم Mahmoud Nasser 7 509 30-09-18, 02:36 PM
آخر رد: mustafa husaieen
  [VB.NET] استفسار :- بخصوص تغيير اسم ال Button بعد الضغط dubai.eig 10 310 17-09-18, 10:53 AM
آخر رد: dubai.eig

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم