SOMAR COLUNA

NOWLIGHTS 08/11/2017 21:35:38
#477735

As grids visualmente estao ocultas, você precisa saber o index das duas colunas, ex;

*mesmo que esteja oculto

Coluna1 = Index 0 | Colunas2 = Index 1 | Coluna3 = Index 2 ...... e assim por diante, de acordo com o SELECT que vc montou

AMORIM 08/11/2017 22:28:51
#477736

Problema resolvido olha como ficou

Private Sub CarregaVendas()
Dim dr As OleDbDataReader = Nothing
Using con As OleDbConnection = GetConnection()
Try
con.Open()
Dim sql As String = [Ô][Ô]
sql = [Ô]SELECT CodCliente, Nome, Devedor, ValorParcelamento FROM tblCliente WHERE Devedor > 0 Or ValorParcelamento > 0[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
dgvTodas.DataSource = dt
For Each i As DataGridViewRow In dgvTodas.Rows
i.Cells(2).Value = i.Cells(2).Value + i.Cells(3).Value
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub

AMORIM 08/11/2017 22:32:33
#477737

Muito obrigado pela ajuda