Excel Forum

Code: Select all

For intI As Integer = 0 To BARCODEDataGridView.Rows.Count - 2
            For intJ As Integer = intI + 1 To ALL_BALANCEDataGridView.Rows.Count - 2
                For k As Integer = 0 To ALL_BALANCEDataGridView.RowCount - 1
                    For j As Integer = 0 To BARCODEDataGridView.RowCount - 1
                        If BARCODEDataGridView.Rows(intI).Cells(2).Value <> ALL_BALANCEDataGridView.Rows(intJ).Cells(1).Value Then

                            ALL_BALANCEBindingSource.AddNew()
                            Dim u As Integer
                            u = ALL_BALANCEDataGridView.Rows.Count - 1
                            ALL_BALANCEDataGridView.CurrentCell = ALL_BALANCEDataGridView(0, u).Value
                            ALL_BALANCEDataGridView(1, k).Value = BARCODEDataGridView(2, j).Value
                            Exit Sub
                        End If
                    Next
                Next
            Next
        Next