Somar Valores

Question

Ola a todos,
Estou fazendo um sistema contas pagar, receber. Tenho no formulario um DataGridView com as colunas
Valor, e na Coluna Posição Da Conta, tenho os itens [ Pagar,Paga, Receber, Recebida ] Gostaria de quando abro o formulario em 4 TextBox me mostre os valres totais de cada iten Por Ex:
TxtPagar -> 1.000,00
TxtPaga -> 80.000,00
TxtReceber -> 5.000,00
TxtRecebida -> 1.200,00

Para abrir o formulario uso uma Classe: 

Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Contas
    Public conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public cb As OleDbCommandBuilder

    Public Sub New()
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;Mode=Share Deny None")
        da = New OleDbDataAdapter("Select * from Contas", conn)
        cb = New OleDbCommandBuilder(da)
    End Sub

Answer 1

Vc quer que cada informação que venha da base apareça em um textbox ?
Vc pode usar um dataSet
Especifique mais por gentileza

Answer 2

CRCJ.1,

Para fazer isso eu uso isso:

NA CLASSE DO SEU PROJETO.

Function Buscar_codigosfiscais_codigo(ByVal descricao As String) As DataTable
        Dim codigosfiscais As New DataTable
        Dim con As New SqlConnection(StrCon)
        Dim sql As String = "SELECT codigo, descricao FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"
        Dim adpt As New SqlDataAdapter(sql, con)

        Try
            con.Open()
            adpt.Fill(codigosfiscais)
        Catch ex As SqlException
            MessageBox.Show(ex.Message, ex.Number.ToString)
        Finally
            con.Close()
        End Try
        Return codigosfiscais
        Exit Function
    End Function

Isso serve para selecionar os campos que voce precisa no banco de dados e mostrar numa datagridview.

E no form que voce fez para mostrar esses dados com o datagridview. USO ISSO:

 Private Sub cmdSelecionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelecionar.Click

        Dim Selecionar_emp As DataGridViewRow


        Selecionar_emp = dtEmpresas.CurrentRow

               frmPrestacaoservico.txtSerie.Text = Selecionar_emp.Cells("serie").Value
        frmPrestacaoservico.txtSubserie.Text = Selecionar_emp.Cells("subserie").Value
        frmPrestacaoservico.txtEstado.Text = Selecionar_emp.Cells("uf").Value
        '  frmPrestacaoservico.txtCliente.Text = Selecionar_emp.Cells("cliente").Value
        frmPrestacaoservico.cboTipomovimento.Text = Selecionar_emp.Cells("tipomovimento").Value
        frmPrestacaoservico.txtDiaemi.Text = Selecionar_emp.Cells("diaemissao").Value
       
        Me.Close()
        frmPrestacaoservico.CmdOk.Visible = False
        frmPrestacaoservico.cmdAlterar.Visible = True
        frmPrestacaoservico.mskReferenciaEmi.Enabled = True
        frmPrestacaoservico.mskReferenciaMov.Enabled = True
        frmPrestacaoservico.Show()
    End Sub

Como você quer o valor total de cada item (contas a pagar, receber e talz). No meu primeiro bloco de codigo vc teria que fazer um SUM, SUM serve para somar todos os valores no campo especificado. EXEMPLO:

Dim sql As String = "SELECT SUM(codigo), SUM(descricao) FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"

No mais é isso ai cara, precisando tamo ai.