طلب حول الداتا جريد فيو

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

اخي ممكن توضح الفقرة الاخيره بالتفصيل؟

ryadh كتب:

السلام عليكم

لدي داتا جريد فيو به أعمدة وأسطر طبعا .. هذا نموذج له

وضعت هذا الكود ليحسب لي كم تكررت العلامة 15 في كل سطر وذلك بواسطة حلقة تمر على جميع الأعمدة وكل سطر على حدى لتظهر النتيجة في Label1

الكود وضعته في الحدث SelectionChanged

Dim nbr As Integer = 0

        Dim n As Integer

        n = DataGridView.CurrentRow.Index

        For i As Integer = 2 To DataGridView.ColumnCount - 1

            If DataGridView.Rows(n).Cells(i).Value = 15 Then

                nbr += 1

            Else

            End If

        Next

        Label1.Text = nbr

جيد الكود يعمل جمييييييل جدا ..

ولدي هذا الكود الذي هو عبارة عن حلقة كذلك يمر على الأسطر واذا وجد النتيجة أن الـ 15 مكررة مرتين سيلون العمود 3 بالأحمر

Dim s As Integer

For s = 0 To DataGridView.RowCount - 1

            If DataGridView.Rows(s).Cells(2).Value = 15 And Label1.Text = 2 Then

                DataGridView.Rows(s).Cells(3).Style.BackColor = Color.OrangeRed

            Else

            End If

هنا علي ان أمر على كل سطر لوحده وأضغط الزر ليعمل الكود لأنه مرتبط باللبل لأنه كما قلنا اللابل يحمل التكرار الخاص بالسطر

لذلك أريده أن يعمل أثناء مرور الحلقة يعني اثناء مروره على كل سطر يراقب اللابل الخاص

به ويمر الى الأسطر الاخرى ..

استبدل الحلقة For بالتالية :

For s = 0 To DataGridView.RowCount - 1
DataGridView.Rows(s).Cells(0).Selected = True
            If DataGridView.Rows(s).Cells(2).Value = 15 And Label1.Text = 2 Then
                DataGridView.Rows(s).Cells(3).Style.BackColor = Color.OrangeRed
end if
next