[VB.NET] مشكلة في تغيير لون خلفية الخلية في ال Datagridview

كود :

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded



    ' التأكد من إنشاء الخلية

    If DataGridView1.Rows(e.RowIndex).Cells(1).Value IsNot Nothing Then



        ' التأكد من محتوى الخلية

        If DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString <> "" Then



            ' تلوين خلفية الخلية

            DataGridView1.Rows(e.RowIndex).Cells(1).Style.BackColor = Color.Red



        End If



    End If



    ' إظهار السطر الجديد في الواجهة

    DataGridView1.FirstDisplayedScrollingRowIndex = e.RowIndex



End Sub

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



    'ExpatsTableAdapter.InsertQuery(ComboBox1.Text)

    'ExpatsTableAdapter.Fill(RecoordDataSet.Expats)



    Dim row As RecoordDataSet.ExpatsRow = Me.RecoordDataSet.Expats.NewRow

    row.ExpatsNames = ComboBox1.Text

    Me.RecoordDataSet.Expats.Rows.Add(row)

    ExpatsTableAdapter.Update(RecoordDataSet.Expats)



End Sub

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    'TODO: This line of code loads data into the 'RecoordDataSet.Expats' table. You can move, or remove it, as needed.

    Me.ExpatsTableAdapter.Fill(Me.RecoordDataSet.Expats)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim row As RecoordDataSet.ExpatsRow = Me.RecoordDataSet.Expats.NewRow

    row.ExpatsNames = ComboBox1.Text

    row.Green = False

    Me.RecoordDataSet.Expats.Rows.Add(row)

    ExpatsTableAdapter.Update(RecoordDataSet.Expats)

End Sub

Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

    Me.DataGridView1.CurrentRow.Cells(1).Style.BackColor = Color.Green

    Dim id As Integer = ExpatsBindingSource.Current("ID")

    Dim row As RecoordDataSet.ExpatsRow =

        Me.RecoordDataSet.Expats.Where(Function(x) x.Id = id).FirstOrDefault

    row.ExpatsNames = row.ExpatsNames

    row.Green = True

    ExpatsTableAdapter.Update(RecoordDataSet.Expats)

End Sub

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded

    For i = 0 To DataGridView1.Rows.Count - 1

        Dim row As RecoordDataSet.ExpatsRow =

            Me.RecoordDataSet.Expats.Where(Function(x) x.Id = CInt(DataGridView1.Rows(i).Cells(0).Value)).FirstOrDefault

        If row.ExpatsNames <> "" Then

            DataGridView1.Rows(i).Cells(1).Style.ForeColor = Color.Red

        End If

        If row.Green Then

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

        End If

    Next

End Sub