Usuário com melhor resposta
Somar Valores

Pergunta
-
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
Respostas
-
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.
- Marcado como Resposta CRCJ.1 terça-feira, 13 de janeiro de 2015 17:52
Todas as Respostas
-
-
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.
- Marcado como Resposta CRCJ.1 terça-feira, 13 de janeiro de 2015 17:52