SOMANDO VALORES
Verifica.
Valeu.
Valeu.
OMAR2011
Entendi o que voçe fez, mas de uma olhada no meu banco de dados que estou te mandando
na coluna valor,
e na coluna posicaconta -> aqui esta todos pagar, paga, receber, recebida
Entendi o que voçe fez, mas de uma olhada no meu banco de dados que estou te mandando
na coluna valor,
e na coluna posicaconta -> aqui esta todos pagar, paga, receber, recebida
pode mandar vou ver se posso te ajudar .. :P
GEISSLER
Te mandei para esse e-mail -> gustavoinfomax@yahoo.com.br
pois por aqui não da, é muito grande
Te mandei para esse e-mail -> gustavoinfomax@yahoo.com.br
pois por aqui não da, é muito grande
CRCJ me mandou o projeto dele por email ai eu acho q consegui ajuda-lo vou postar aqui caso alguem procure algum dia vai achar a solução kkk
ele tinha uma coluna chamada [ô]posicaoconta[ô] ai la era tipo um status ( pago, recebido, pagar, receber) e tinha uma coluna [ô]valor[ô] q era ligada a coluna [ô]posicaoconta[ô]
pelo q eu entendi ele queria somar pagos com pagos, recebidos com recebidos, e assim sucessivamente... para isso usei
*1 Datagridview
*4TextBox
e o codigo :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Formatando a grid com 2 colunas
Dim coluna As Integer
For coluna = 0 To 0
DataGridView1.Columns.Add(coluna.ToString, [Ô]PosicaoConta[Ô])
DataGridView1.Columns.Add(coluna.ToString, [Ô]Valor[Ô])
Next
DataGridView1.Rows.Add(8)
[ô]adicionando dados ao datagrid Valores
DataGridView1.Rows(0).Cells(1).Value = [Ô]30[Ô]
DataGridView1.Rows(1).Cells(1).Value = [Ô]5[Ô]
DataGridView1.Rows(2).Cells(1).Value = [Ô]93[Ô]
DataGridView1.Rows(3).Cells(1).Value = [Ô]24[Ô]
DataGridView1.Rows(4).Cells(1).Value = [Ô]64[Ô]
DataGridView1.Rows(5).Cells(1).Value = [Ô]235[Ô]
DataGridView1.Rows(6).Cells(1).Value = [Ô]1[Ô]
DataGridView1.Rows(7).Cells(1).Value = [Ô]87[Ô]
DataGridView1.Rows(8).Cells(1).Value = [Ô]56[Ô]
[ô]adicionando dados ao datagrid Posições
DataGridView1.Rows(0).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(1).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(2).Cells(0).Value = [Ô]Pago[Ô]
DataGridView1.Rows(3).Cells(0).Value = [Ô]Recebido[Ô]
DataGridView1.Rows(4).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(5).Cells(0).Value = [Ô]Receber[Ô]
DataGridView1.Rows(6).Cells(0).Value = [Ô]Recebido[Ô]
DataGridView1.Rows(7).Cells(0).Value = [Ô]Pago[Ô]
DataGridView1.Rows(8).Cells(0).Value = [Ô]Receber[Ô]
[ô]segui DataGrid mudando a cor (segestão minha, pode ajudar a ter uma melhor visualização)
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
Dim posicao As String = DataGridView1.Rows(i).Cells(0).Value
If posicao = [Ô]Pagar[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
ElseIf posicao = [Ô]Pago[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Green
ElseIf posicao = [Ô]Receber[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Orange
ElseIf posicao = [Ô]Recebido[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Blue
End If
Next
[ô]segui DataGrid somando como vc deseja
Dim pagar, pago, receber, recebido
pagar = 0
pago = 0
receber = 0
recebido = 0
For i = 0 To DataGridView1.RowCount - 1
Dim posicao As String = DataGridView1.Rows(i).Cells(0).Value
If posicao = [Ô]Pagar[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
pagar = pagar + puxando
ElseIf posicao = [Ô]Pago[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
pago = pago + puxando
ElseIf posicao = [Ô]Receber[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
receber = receber + puxando
ElseIf posicao = [Ô]Recebido[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
recebido = recebido + puxando
End If
Next
TextBox1.Text = pagar
TextBox2.Text = pago
TextBox3.Text = receber
TextBox4.Text = recebido
End Sub
End Class
ele tinha uma coluna chamada [ô]posicaoconta[ô] ai la era tipo um status ( pago, recebido, pagar, receber) e tinha uma coluna [ô]valor[ô] q era ligada a coluna [ô]posicaoconta[ô]
pelo q eu entendi ele queria somar pagos com pagos, recebidos com recebidos, e assim sucessivamente... para isso usei
*1 Datagridview
*4TextBox
e o codigo :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Formatando a grid com 2 colunas
Dim coluna As Integer
For coluna = 0 To 0
DataGridView1.Columns.Add(coluna.ToString, [Ô]PosicaoConta[Ô])
DataGridView1.Columns.Add(coluna.ToString, [Ô]Valor[Ô])
Next
DataGridView1.Rows.Add(8)
[ô]adicionando dados ao datagrid Valores
DataGridView1.Rows(0).Cells(1).Value = [Ô]30[Ô]
DataGridView1.Rows(1).Cells(1).Value = [Ô]5[Ô]
DataGridView1.Rows(2).Cells(1).Value = [Ô]93[Ô]
DataGridView1.Rows(3).Cells(1).Value = [Ô]24[Ô]
DataGridView1.Rows(4).Cells(1).Value = [Ô]64[Ô]
DataGridView1.Rows(5).Cells(1).Value = [Ô]235[Ô]
DataGridView1.Rows(6).Cells(1).Value = [Ô]1[Ô]
DataGridView1.Rows(7).Cells(1).Value = [Ô]87[Ô]
DataGridView1.Rows(8).Cells(1).Value = [Ô]56[Ô]
[ô]adicionando dados ao datagrid Posições
DataGridView1.Rows(0).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(1).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(2).Cells(0).Value = [Ô]Pago[Ô]
DataGridView1.Rows(3).Cells(0).Value = [Ô]Recebido[Ô]
DataGridView1.Rows(4).Cells(0).Value = [Ô]Pagar[Ô]
DataGridView1.Rows(5).Cells(0).Value = [Ô]Receber[Ô]
DataGridView1.Rows(6).Cells(0).Value = [Ô]Recebido[Ô]
DataGridView1.Rows(7).Cells(0).Value = [Ô]Pago[Ô]
DataGridView1.Rows(8).Cells(0).Value = [Ô]Receber[Ô]
[ô]segui DataGrid mudando a cor (segestão minha, pode ajudar a ter uma melhor visualização)
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
Dim posicao As String = DataGridView1.Rows(i).Cells(0).Value
If posicao = [Ô]Pagar[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
ElseIf posicao = [Ô]Pago[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Green
ElseIf posicao = [Ô]Receber[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Orange
ElseIf posicao = [Ô]Recebido[Ô] Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Blue
End If
Next
[ô]segui DataGrid somando como vc deseja
Dim pagar, pago, receber, recebido
pagar = 0
pago = 0
receber = 0
recebido = 0
For i = 0 To DataGridView1.RowCount - 1
Dim posicao As String = DataGridView1.Rows(i).Cells(0).Value
If posicao = [Ô]Pagar[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
pagar = pagar + puxando
ElseIf posicao = [Ô]Pago[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
pago = pago + puxando
ElseIf posicao = [Ô]Receber[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
receber = receber + puxando
ElseIf posicao = [Ô]Recebido[Ô] Then
Dim puxando As String = DataGridView1.Rows(i).Cells(1).Value.ToString()
recebido = recebido + puxando
End If
Next
TextBox1.Text = pagar
TextBox2.Text = pago
TextBox3.Text = receber
TextBox4.Text = recebido
End Sub
End Class
Preenche isto com a tabela do CRCJ.
Baixe o banco dele e preenche como ele quer.
Vai ter que somar, Recebida,Receber e Paga
de um campo Valor.Vai ter que fazer
um select somando quanto ao campo posicaoconta.
Baixe o banco dele e preenche como ele quer.
Vai ter que somar, Recebida,Receber e Paga
de um campo Valor.Vai ter que fazer
um select somando quanto ao campo posicaoconta.
GEISSLER
Entendi como você fez, só que como eu abro meu formulário com banco de dados, o que você fez esta incompatÃvel com o
meu sistema, tentei trocar o que você fez para adaptar com o meu sistema, mas não funcionou. Ele só me da resultado 0,00
nas Text., ou seja não soma nada.
Entendi como você fez, só que como eu abro meu formulário com banco de dados, o que você fez esta incompatÃvel com o
meu sistema, tentei trocar o que você fez para adaptar com o meu sistema, mas não funcionou. Ele só me da resultado 0,00
nas Text., ou seja não soma nada.
OMAR2011 / GEISSLER
Consegui somar todos os valores da coluna Valor,
[ô]SOMA TOTOS OS VALORES DA COLUNA VALOR NO DATA GRID VIEW
Try
Dim SomaColuna As Double
For Each coluna As DataGridViewRow In dgContas.Rows
If Me.dgContas.Rows(coluna.Index).DefaultCellStyle.BackColor <> Color.Silver Then
SomaColuna = SomaColuna + coluna.Cells(3).Value
End If
Next
TxtTotal.Text = Format(Convert.ToDouble(SomaColuna), [Ô]#,##0.00[Ô])
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Catch ex As Exception
MessageBox.Show(ex.ToString(), [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
aut.Dispose()
End Try
Agora tem como adaptar para que a soma seja individual, ou seja para cada Text: Paga, Pagar, Receber, Recebida
me de os respectivos valores: segue o banco de dados.
Consegui somar todos os valores da coluna Valor,
[ô]SOMA TOTOS OS VALORES DA COLUNA VALOR NO DATA GRID VIEW
Try
Dim SomaColuna As Double
For Each coluna As DataGridViewRow In dgContas.Rows
If Me.dgContas.Rows(coluna.Index).DefaultCellStyle.BackColor <> Color.Silver Then
SomaColuna = SomaColuna + coluna.Cells(3).Value
End If
Next
TxtTotal.Text = Format(Convert.ToDouble(SomaColuna), [Ô]#,##0.00[Ô])
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Catch ex As Exception
MessageBox.Show(ex.ToString(), [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
aut.Dispose()
End Try
Agora tem como adaptar para que a soma seja individual, ou seja para cada Text: Paga, Pagar, Receber, Recebida
me de os respectivos valores: segue o banco de dados.
CRCJ peguei o projeto q vc me mandou e fiz as adaptações para funcionar como o exemplo q te mandei, agora esta somando, paga com paga recebido com recebido e etc tambem fica colorido mas isso vc pode tirar caso nao goste
mandei o projeto todo em seu email .....
caso prefira cola o codigo na sub_load do form [ô] frmContas[ô]
Private Sub frmContas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]CARREGA OS ITENS NO COMBO TIPO
CmbTipo.Items.Add([Ô]Boleto[Ô])
CmbTipo.Items.Add([Ô]Fatura[Ô])
CmbTipo.Items.Add([Ô]Duplicata[Ô])
CmbTipo.Items.Add([Ô]Nota Promissória[Ô])
CmbTipo.Items.Add([Ô]Depósito Em Conta[Ô])
CmbTipo.Items.Add([Ô]Outros[Ô])
[ô]CARREGA OS ITENS NO COMBO POSIÇÃO DA CONTA
CmbPosicaoConta.Items.Add([Ô]Pagar[Ô])
CmbPosicaoConta.Items.Add([Ô]Paga[Ô])
CmbPosicaoConta.Items.Add([Ô]Receber[Ô])
CmbPosicaoConta.Items.Add([Ô]Recebida[Ô])
[ô]FAZ A CONEXÃO COM O BANCO DE DADOS E CARREGA A LISTA DE FORNECEDORES NO COMBO FORNECEDOR
CmbFornecedor.Items.Clear() [ô] Apaga os itens existentes. Previne a duplicação dos mesmos
Dim ligação As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;Mode=Share Deny None[Ô]
Dim sintaxe As String = [Ô]Select * From Fornecedor[Ô]
Dim conecção As New OleDbConnection(ligação)
Dim command As New OleDbCommand(sintaxe, conecção)
conecção.Open()
Dim leitor As OleDbDataReader = command.ExecuteReader()
If leitor.HasRows Then
While leitor.Read
CmbFornecedor.Items.Add(leitor.Item([Ô]fornecedor[Ô]))
End While
End If
conecção.Close()
sintaxe = Nothing
conecção = Nothing
ObterDados()
[ô]soma valores
Dim i As Integer
Dim pagar, pago, receber, recebido
pagar = 0
pago = 0
receber = 0
recebido = 0
For i = 0 To dgContas.RowCount - 1
Dim posicao As String = dgContas.Rows(i).Cells(6).Value
If posicao = [Ô]Pagar[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
pagar = pagar + puxando
ElseIf posicao = [Ô]Paga[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
pago = pago + puxando
ElseIf posicao = [Ô]Receber[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
receber = receber + puxando
ElseIf posicao = [Ô]Recebida[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
recebido = recebido + puxando
End If
Next
Text1.Text = pagar
Text2.Text = pago
Text3.Text = receber
Text4.Text = recebido
[ô]segui DataGrid mudando a cor (segestão minha, pode ajudar a ter uma melhor visualização)
For i = 0 To dgContas.RowCount - 1
Dim posicao As String = dgContas.Rows(i).Cells(6).Value
If posicao = [Ô]Pagar[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Red
ElseIf posicao = [Ô]Paga[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Green
ElseIf posicao = [Ô]Receber[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Orange
ElseIf posicao = [Ô]Recebida[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Blue
End If
Next
End Sub
abs, espero q agora de certo ...qualquer coisa só chamar
mandei o projeto todo em seu email .....
caso prefira cola o codigo na sub_load do form [ô] frmContas[ô]
Private Sub frmContas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]CARREGA OS ITENS NO COMBO TIPO
CmbTipo.Items.Add([Ô]Boleto[Ô])
CmbTipo.Items.Add([Ô]Fatura[Ô])
CmbTipo.Items.Add([Ô]Duplicata[Ô])
CmbTipo.Items.Add([Ô]Nota Promissória[Ô])
CmbTipo.Items.Add([Ô]Depósito Em Conta[Ô])
CmbTipo.Items.Add([Ô]Outros[Ô])
[ô]CARREGA OS ITENS NO COMBO POSIÇÃO DA CONTA
CmbPosicaoConta.Items.Add([Ô]Pagar[Ô])
CmbPosicaoConta.Items.Add([Ô]Paga[Ô])
CmbPosicaoConta.Items.Add([Ô]Receber[Ô])
CmbPosicaoConta.Items.Add([Ô]Recebida[Ô])
[ô]FAZ A CONEXÃO COM O BANCO DE DADOS E CARREGA A LISTA DE FORNECEDORES NO COMBO FORNECEDOR
CmbFornecedor.Items.Clear() [ô] Apaga os itens existentes. Previne a duplicação dos mesmos
Dim ligação As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;Mode=Share Deny None[Ô]
Dim sintaxe As String = [Ô]Select * From Fornecedor[Ô]
Dim conecção As New OleDbConnection(ligação)
Dim command As New OleDbCommand(sintaxe, conecção)
conecção.Open()
Dim leitor As OleDbDataReader = command.ExecuteReader()
If leitor.HasRows Then
While leitor.Read
CmbFornecedor.Items.Add(leitor.Item([Ô]fornecedor[Ô]))
End While
End If
conecção.Close()
sintaxe = Nothing
conecção = Nothing
ObterDados()
[ô]soma valores
Dim i As Integer
Dim pagar, pago, receber, recebido
pagar = 0
pago = 0
receber = 0
recebido = 0
For i = 0 To dgContas.RowCount - 1
Dim posicao As String = dgContas.Rows(i).Cells(6).Value
If posicao = [Ô]Pagar[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
pagar = pagar + puxando
ElseIf posicao = [Ô]Paga[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
pago = pago + puxando
ElseIf posicao = [Ô]Receber[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
receber = receber + puxando
ElseIf posicao = [Ô]Recebida[Ô] Then
Dim puxando As String = dgContas.Rows(i).Cells(3).Value.ToString()
recebido = recebido + puxando
End If
Next
Text1.Text = pagar
Text2.Text = pago
Text3.Text = receber
Text4.Text = recebido
[ô]segui DataGrid mudando a cor (segestão minha, pode ajudar a ter uma melhor visualização)
For i = 0 To dgContas.RowCount - 1
Dim posicao As String = dgContas.Rows(i).Cells(6).Value
If posicao = [Ô]Pagar[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Red
ElseIf posicao = [Ô]Paga[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Green
ElseIf posicao = [Ô]Receber[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Orange
ElseIf posicao = [Ô]Recebida[Ô] Then
dgContas.Rows(i).DefaultCellStyle.BackColor = Color.Blue
End If
Next
End Sub
abs, espero q agora de certo ...qualquer coisa só chamar
GEISSLER
Lindo, Show de bola, funcionou direitinho, não abusando da sua boa vontade, já que você tem o meu
projeto, nele tem uma TxtFiltro, gostaria de quando vou digitando pelo código nela me filtra na DataGridView.
Muito obrigado pela sua paciência, vou encerrar o tópico e te indicar.
Lindo, Show de bola, funcionou direitinho, não abusando da sua boa vontade, já que você tem o meu
projeto, nele tem uma TxtFiltro, gostaria de quando vou digitando pelo código nela me filtra na DataGridView.
Muito obrigado pela sua paciência, vou encerrar o tópico e te indicar.
Tópico encerrado , respostas não são mais permitidas