relatório pegasse só o total de cada loja


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: relatório pegasse só o total de cada loja

Edson479

SÃO PAULO
SP - BRASIL

Postada em 26/02/2008 11:06 hs

Bom dia eu estou fazendo um programinha de relação

Como fazer que o meu relatório pegasse só o total de cada loja

Exp

Loja 1

120,00

100,00

150,00

Loja 2

150,00

200,00

Resulta

Loja 1 370,00

Loja 2 350,00

Estou abrindo assim

....

Case "Loja"

Tot = 0

Frame3.Enabled = False

lbl_Con.Caption = "Digite."

Criterio = Chr$(39) & txtCon & "%" & Chr(39)

If rsPaciente.State = 1 Then rsPaciente.Close

SQL = "SELECT * From fichas Where loj_fic Like " & Criterio & " order by nt_fic"

….

rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

While Not rsPaciente.EOF

Set lst = ListaAlunos.ListItems.Add(, , rsPaciente("cod_fic"))

lst.SubItems(1) = rsPaciente("pla_fic")

lst.SubItems(2) = rsPaciente("ent_fic")

lst.SubItems(3) = rsPaciente("loj_fic")

lst.SubItems(4) = rsPaciente("nom_fic")

lst.SubItems(5) = Format(rsPaciente("val_fic"), "###,##0.00")

Tot = Tot + Format(rsPaciente("val_fic"), "###,##0.00")

rsPaciente.MoveNext

Wend

txtTot.Text = Format(Tot, "###,##0.00")

rsPaciente.Close

Set rsPaciente = Nothing

e pra imprimir

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 26/02/2008 11:30 hs

use a seguinte sql

"SELECT sum(campo_valores) AS total FROM loja1"

onde total e´um nome provisório no qual será armazenado o a soma dos campos

então utilizando essa sql você apresentaria o resultado assim

textbox.text=rsPaciente("total")

veja se consegue fazer isto

Edson479

SÃO PAULO
SP - BRASIL

Postada em 26/02/2008 12:37 hs

deu +/- certo ele não traz o nome da loja

exp.

loja 1 | 100,00

loja 2 | 50,00

loja 3 | 200,00

....

JOM

BOM JESUS DA LAPA
BA - BRASIL

Postada em 26/02/2008 17:25 hs

é só colocar o nome da loja no select

"SELECT sum(campo_valores) AS total, nome_loja FROM loja1 "

Caso o Loja seja um campo, ou seja, loja1 loja2 loja3 estejam em uma mesma tabela então pode fazer um group com o campo loja e trazer os nomes das lojas e o somatorio de cada uma

"SELECT sum(campo_valores) AS total, campo_nome_loja FROM tabela_lojas group by campo_nome_loja"

Edson479

SÃO PAULO
SP - BRASIL

Postada em 27/02/2008 09:26 hs

eu fiz assim mais não deu certo

SQL = "SELECT sum(val_fic) AS total, * FROM fichas group by loj_fic"

   rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

    While Not rsPaciente.EOF
        Set lst = ListaAlunos.ListItems.Add(, , (rsPaciente("cod_fic")))
        'lst.SubItems(1) = rsPaciente("pla_fic")
        'lst.SubItems(2) = rsPaciente("ent_fic")
        'lst.SubItems(3) = rsPaciente("loj_fic")
        lst.SubItems(4) = rsPaciente("nom_fic")
        'lst.SubItems(5) = Format(rsPaciente("val_fic"), "###,##0.00")
        'Tot = Tot + Format(rsPaciente("val_fic"), "###,##0.00")
        rsPaciente.MoveNext
    Wend
    txtTot.Text = rsPaciente("total")
    'txtTot.Text = Format(Tot, "###,##0.00")

rsPaciente.Close
Set rsPaciente = Nothing

Treze

SÃO VICENTE
SP - BRASIL

Postada em 27/02/2008 10:13 hs

Só me esplica uma coisa como está montada sua tabela ou suas tabelas, descreva as mesmas pra mim

desta forma

nome da tabela

campo ' função do campo

vai ficar melhor pra montar seu list

Página(s): 1/3 PRÓXIMA »