Excel Forum

Code: Select all

 For i As Integer = 0 To PRODUCTIONDataGridView.Rows.Count() - 1 Step +1
            Dim rowAlreadyExist As Boolean = False
            Dim check As Boolean = PRODUCTIONDataGridView.Rows(i).Cells(3).Value
            Dim row As DataGridViewRow = PRODUCTIONDataGridView.Rows(i)
            If check = True Then
                If IN_PRODUCTIONDataGridView.Rows.Count() > 0 Then
                    For j As Integer = 0 To IN_PRODUCTIONDataGridView.Rows.Count() - 1 Step +1
                        If row.Cells(0).Value.ToString() = IN_PRODUCTIONDataGridView.Rows(j).Cells(0).Value.ToString() Then
                            rowAlreadyExist = True
                            Exit For
                        End If
                    Next
                    If rowAlreadyExist = False Then
                        IN_PRODUCTIONDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
                                               row.Cells(1).Value.ToString(),
                                               row.Cells(2).Value.ToString(),
                                              row.Cells(3).Value)
                    End If
                Else
                    IN_PRODUCTIONBindingSource.AddNew()
                    IN_PRODUCTIONDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
                     row.Cells(1).Value.ToString(),
                     row.Cells(2).Value.ToString(),
                     row.Cells(3).Value)
                End If
            End If
        Next