LISTVIEW - SINTETICO
Olá pessoal!
Alguem tem idéia de como fazer um listview sintético ?
Tenho uma tabela acess com vários valores e preciso somar estes valores para as faturas de mesmo número e depois mostrar no listview.
ex: Fatura: 0001 R$ 10,00
Fatura: 0001 R$ 25,00
Fatura: 0009 R$ 50,00
Fatura: 0009 R$ 50,00
No listview deve mostrar assim:
Fatura: 0001 R$ 35,00
Fatura: 0009 R$ 100,00
Desde já agradeço.
Alguem tem idéia de como fazer um listview sintético ?
Tenho uma tabela acess com vários valores e preciso somar estes valores para as faturas de mesmo número e depois mostrar no listview.
ex: Fatura: 0001 R$ 10,00
Fatura: 0001 R$ 25,00
Fatura: 0009 R$ 50,00
Fatura: 0009 R$ 50,00
No listview deve mostrar assim:
Fatura: 0001 R$ 35,00
Fatura: 0009 R$ 100,00
Desde já agradeço.
Você não faz isso no listview, mas sim uma query.
Select Fatura, Sum(valor) from sua_tabela where xxx = yyy group by Fatura
Select Fatura, Sum(valor) from sua_tabela where xxx = yyy group by Fatura
Cara não tenho nem idéia de como usar essa cláusula!
Estou carregando de uma base acess para o listview ai preciso trazer da tabela os valores já somados [Ô]sintético[Ô]. Estou usando o código abaixo:
Call criacabecalho(3) [ô] monta o listview
If PContabil.State = ConnectionState.Closed Then PContabil.Close()
PContabil.Open()
Dim cmdcc As OleDbCommand = New OleDbCommand(sql, PContabil)
Dim leitorcc As OleDbDataReader = cmdcc.ExecuteReader()
listcc.View = View.Details
Dim gerado, juros, desconto, liquido As New Decimal
posicao = 1
Do While leitorcc.Read()
Dim itemcc As New ListViewItem()
itemcc.Text = leitorcc(0)
[ô] Dim idxCP366 As Integer = leitorcc.GetOrdinal([Ô]CP366[Ô])
tbcp361.Text = (leitorcc.Item([Ô]CP361[Ô])) [ô] Fatura
[ô]Call soma()
itemcc = listcc.Items.Add(tbcp101.Text) [ô] Código ou unidade
itemcc.SubItems.Add(tbcp361.Text) [ô] Numero da fatura unificado
itemcc.SubItems.Add(tbcp367.Text) [ô] valor agrupado
Loop
PContabil.Close() [ô] fecha a conexação com o banco de dados
Call corList(1) [ô] cor das linhas do grid
[ô]Call corList(2)
Call desligabotao()
[txt-color=#e80000]Para filtrar uso:
sql = [Ô]select * from CPCreditos WHERE CP365 >= Cdate([ô][Ô] & dataini & [Ô][ô]) and CP365 <= CDate([ô][Ô] & datafim & [Ô][ô]) and CP368 = [ô]N[ô] order by CP101,CP365[Ô][/txt-color]
Ai é tá, onde é que devo colocar o SUM para trazer o resultado para o listview ?
Estou carregando de uma base acess para o listview ai preciso trazer da tabela os valores já somados [Ô]sintético[Ô]. Estou usando o código abaixo:
Call criacabecalho(3) [ô] monta o listview
If PContabil.State = ConnectionState.Closed Then PContabil.Close()
PContabil.Open()
Dim cmdcc As OleDbCommand = New OleDbCommand(sql, PContabil)
Dim leitorcc As OleDbDataReader = cmdcc.ExecuteReader()
listcc.View = View.Details
Dim gerado, juros, desconto, liquido As New Decimal
posicao = 1
Do While leitorcc.Read()
Dim itemcc As New ListViewItem()
itemcc.Text = leitorcc(0)
[ô] Dim idxCP366 As Integer = leitorcc.GetOrdinal([Ô]CP366[Ô])
tbcp361.Text = (leitorcc.Item([Ô]CP361[Ô])) [ô] Fatura
[ô]Call soma()
itemcc = listcc.Items.Add(tbcp101.Text) [ô] Código ou unidade
itemcc.SubItems.Add(tbcp361.Text) [ô] Numero da fatura unificado
itemcc.SubItems.Add(tbcp367.Text) [ô] valor agrupado
Loop
PContabil.Close() [ô] fecha a conexação com o banco de dados
Call corList(1) [ô] cor das linhas do grid
[ô]Call corList(2)
Call desligabotao()
[txt-color=#e80000]Para filtrar uso:
sql = [Ô]select * from CPCreditos WHERE CP365 >= Cdate([ô][Ô] & dataini & [Ô][ô]) and CP365 <= CDate([ô][Ô] & datafim & [Ô][ô]) and CP368 = [ô]N[ô] order by CP101,CP365[Ô][/txt-color]
Ai é tá, onde é que devo colocar o SUM para trazer o resultado para o listview ?
Na verdade, me desculpe a franqueza, mas você não tem idéia do que está fazendo. Você não entendeu o que a query que você marcou em vermelho faz? é nela que você vai fazer a soma.
Tópico encerrado , respostas não são mais permitidas