FILSTRA SO UMA LOJA COM VARIOS VALORES
boa tarde eu tive que fazer umas muntaças do meu projeto..
e o senguente, tenho que fazer um filtro com varios falores.
loja | valor
001| 10,00
001| 5,00
001| 5,00
002| 20,00
sair assim
loja | valor
001| 20,00
002| 20,00
eu tenho isto
sqlFich = [Ô]select sta_fic,cor_fic,loj_fic,fic_des,(fic_rec-(fic_ret+fic_adi))as fic_rec[Ô]
sqlFich = sqlFich & [Ô] from fichas where sta_fic= [ô]Cobranca[ô][Ô]
If comCor.Text = [Ô]Todos[Ô] Then
sqlFich = sqlFich & [Ô]and cor_fic [Ô] & opçao
Else
sqlFich = sqlFich & [Ô]and cor_fic= [ô][Ô] & comCor.Text & [Ô][ô][Ô] & opçao
End If
rssFich.Open sqlFich, cnSQL, adOpenForwardOnly, adLockReadOnly
mais ele traz assi:
001| 10,00
001| 5,00
001| 5,00
002| 20,00
e o senguente, tenho que fazer um filtro com varios falores.
loja | valor
001| 10,00
001| 5,00
001| 5,00
002| 20,00
sair assim
loja | valor
001| 20,00
002| 20,00
eu tenho isto
sqlFich = [Ô]select sta_fic,cor_fic,loj_fic,fic_des,(fic_rec-(fic_ret+fic_adi))as fic_rec[Ô]
sqlFich = sqlFich & [Ô] from fichas where sta_fic= [ô]Cobranca[ô][Ô]
If comCor.Text = [Ô]Todos[Ô] Then
sqlFich = sqlFich & [Ô]and cor_fic [Ô] & opçao
Else
sqlFich = sqlFich & [Ô]and cor_fic= [ô][Ô] & comCor.Text & [Ô][ô][Ô] & opçao
End If
rssFich.Open sqlFich, cnSQL, adOpenForwardOnly, adLockReadOnly
mais ele traz assi:
001| 10,00
001| 5,00
001| 5,00
002| 20,00
vc tem uma tabela lojas?
não dá para fazer um sql direto...
o q vc tem a fazer é...
cria uma variavel ...
Dim listatotal as variant
verifica qtas lojas tem...(na sua tabela lojas)
N = numero de registros de sua tabela lojas
redimensiona o array....
redim listatotal(N,1) [ô] ficou um array com N linhas e duas colunas 0 e 1
popula o array com os registros (numeros das lojas) na coluna 0
feito isso
agora um For/ next para totalizar os valores de cada loja
for i = 1 to N
sql=[Ô]select sum valor from tabela Where loja=[Ô] & listatotal(i,0)
[ô]pega o resultado e vai populando a segunda coluna do array
listatotal(i,1)= resultado da consulta
next i
a lógica é esta aÃ... agora é só aplicar os códigos corretos e dar nomes aos bois
o q vc tem a fazer é...
cria uma variavel ...
Dim listatotal as variant
verifica qtas lojas tem...(na sua tabela lojas)
N = numero de registros de sua tabela lojas
redimensiona o array....
redim listatotal(N,1) [ô] ficou um array com N linhas e duas colunas 0 e 1
popula o array com os registros (numeros das lojas) na coluna 0
feito isso
agora um For/ next para totalizar os valores de cada loja
for i = 1 to N
sql=[Ô]select sum valor from tabela Where loja=[Ô] & listatotal(i,0)
[ô]pega o resultado e vai populando a segunda coluna do array
listatotal(i,1)= resultado da consulta
next i
a lógica é esta aÃ... agora é só aplicar os códigos corretos e dar nomes aos bois
Citação:boa tarde eu tive que fazer umas muntaças do meu projeto..
e o senguente, tenho que fazer um filtro com varios falores.
O certo seria
Citação:boa tarde eu tive que fazer umas mudanças em meu projeto..
é o seguinte, tenho que fazer um filtro com varios valores.
bom colega use o sum
ex:
sSQL = [Ô]SELECT SUM(valor) As Valores FROM tabela WHERE sta_fic = [ô]Cobranca[ô] GROUP BY loja[Ô]
Tópico encerrado , respostas não são mais permitidas