مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين (/showthread.php?tid=8487)

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - cvcvcv - 15-04-13

السلام عليكم
هذا برنامج به قاعدة بيانات وصممت به كريستال ريبورت .. وقمت بكتابة أكواد الربط ..
السؤال هل يمكن جعل لون خلية الرقم احمر اذا كان الرقم أقل من 12 في الداتا جريد فيو ...
وكذلك جعل لون خلية الاسم اخضر اذا كان قيمة الحقل absent تم التاشير عليها .. في الداتا جريد فيو
وشكرا
البرنامج مرفق ومصمم ب 2010

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - أحمد النجار - 15-04-13

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

أخي الكريم بعد كود ملء الداتا جريد بالبيانات

كود :

Table1DataGridView.DataSource = dat

        Table1DataGridView.DataMember = "Table1"

ضع هذا الكود

كود :

For i As Integer = 0 To Table1DataGridView.RowCount - 1

            If Table1DataGridView.Rows(i).Cells(0).Value < 12 Then

                Table1DataGridView.Rows(i).Cells(0).Style.BackColor = Color.Red

            End If

            If Table1DataGridView.Rows(i).Cells(2).Value = True Then

                Table1DataGridView.Rows(i).Cells(1).Style.BackColor = Color.Green

            End If

        Next

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - cvcvcv - 15-04-13

كالعادة .. شكرا استاذ احمد ..

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - أحمد النجار - 15-04-13

العفو يا غالي Smile

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - دمعة المقهور - 17-04-13

For i As Integer = 0 To Table1DataGridView.RowCount - 1
If Table1DataGridView.Rows(i).Cells(0).Value < 12 Then
Table1DataGridView.Rows(i).Cells(0).Style.BackColor = Color.Red
End If
هذا الكود عندما يكون عندي داتا قرايد فيها عمود واحد .....
بس ياريت توضح لو كان في الداتا قرايد أكثر من عمود كيف يكون تمرير الشرط على جميع خلايا الداتا قرايد

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - أحمد النجار - 18-04-13

ممكن نعمل loop آخر لعدد الاعمدة كالتالي

كود :

For i As Integer = 0 To datagridview1.ColumnCount - 1

            For x As Integer = 0 To datagridview1.RowCount - 1

                If datagridview1.Rows(x).Cells(i).Value > 12 Then

                    datagridview1.Rows(x).Cells(i).Style.BackColor = Color.Red

                End If

            Next

        Next

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - دمعة المقهور - 19-04-13

جزاك الله خير أخوي أحمد
عاشت الأنامل

مشروع يفيد المبتدئين أمثالي ولي به سؤال للمحترفين - أحمد النجار - 19-04-13

العفو أخي الكريم
وجزاك الله خيرا:d