Excel Forum

Code: Select all

For k As Integer = 0 To EDPDataGridView.RowCount - 1
            For j = 0 To ALLQTYDataGridView.Rows.Count - 1
                If Convert.ToString(EDPDataGridView(2, k).Value) = ALLQTYDataGridView(1, j).Value Then
                    Dim a As Integer
                    a = EDPDataGridView(5, k).Value
                    ALLQTYDataGridView.Rows(j).Cells(5).Value = a + ALLQTYDataGridView.Rows(j).Cells(5).Value


                    EDPDataGridView(10, k).Value = "D"

                End If
            Next
        Next