EDITANDO E SALVANDO DENTRO DATAGRID

     Private Sub dgv_Atualizar_Base_RowLeave(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_Atualizar_Base.RowLeave

        If dgv_Atualizar_Base.Rows(IntRownIdex).Cells(5).Value = [Ô]1[Ô] Then
            dgv_Atualizar_Base.Rows(IntRownIdex).Cells(7).Value = [Ô]Tributado[Ô]

        End If

        If dgv_Atualizar_Base.Rows(IntRownIdex).Cells(5).Value = [Ô]2[Ô] Then
            dgv_Atualizar_Base.Rows(IntRownIdex).Cells(7).Value = [Ô]Substituição[Ô]

        End If
    End Sub 

Citação:

:
Deve ser a milionésima vez que vou escrever isso aqui: Use OOP. Pare de programar proceduralmente, atualize-se e seus problemas se não acabarem de vez, vão ao menos diminuir muito.

Citação:

:
Como está fazendo o preenchimento do grid?

   Private Sub PCarregaDados()
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = [Ô]SELECT codigo,descricao,CFOP_Produto,ncm,CEST,indicador_icms,Cst_CSOSN FROM produtos[Ô]
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim dt As New DataTable

                dr = cmd.ExecuteReader
                dt.Load(dr)
                If dt.Rows.Count > 0 Then

                    Dim AddGrid As Integer
                    Dim row As String()

                    Dim numCOLUNAS As Integer = dt.Columns.Count
                    For AddGrid = 0 To dt.Rows.Count - 1
                        row = New String() {
                        dt.Rows(AddGrid)(0).ToString(),
                        dt.Rows(AddGrid)(1).ToString(),
                        dt.Rows(AddGrid)(2).ToString(),
                        dt.Rows(AddGrid)(3).ToString(),
                        dt.Rows(AddGrid)(4).ToString(),
                        dt.Rows(AddGrid)(5).ToString(),
                        dt.Rows(AddGrid)(6).ToString()}
                        dgv_Atualizar_Base.Rows.Add(row)

                        If dgv_Atualizar_Base.Rows(AddGrid).Cells(5).Value = [Ô]1[Ô] Then
                            dgv_Atualizar_Base.Rows.Item(AddGrid).Cells(7).Value = [Ô]Tributado[Ô]
                        End If

                        If dgv_Atualizar_Base.Rows(AddGrid).Cells(5).Value = [Ô]2[Ô] Then
                            dgv_Atualizar_Base.Rows.Item(AddGrid).Cells(7).Value = [Ô]Substituição[Ô]
                        End If

                        [ô]Quatro_dig_NCM = Mid(dgv_Atualizar_Base.Rows(AddGrid).Cells(3).Value, 1, 4)
                        [ô]PCarrega_NCM()
                    Next
                End If

            Catch ex As Exception
                MsgBox([Ô]Ocorreu um erro na Leitura[Ô] & ex.Message, MsgBoxStyle.Information)
            Finally
                con.Close()
            End Try
        End Using
    End Sub 

Citação:

:
Desculpe, mas você [txt-color=#e80000]NÃO[/txt-color] está usando OOP e por isso está com dificuldades.

Citação:

:
Como ainda não está usando, comece ao menos a treinar OOP. Tente fazer o mesmo form. Adicione coisas como um somatório de tudo, por exemplo. Com OOP, cada uma dessas coisas se resolve com apenas uma linha curtinha de código.