relatório pegasse só o total de cada loja

Voltar

Autor

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

Treze

SÃO VICENTE
SP - BRASIL

Postada em 27/02/2008 15:38 hs

criei a mesma tabela aqui e consegui só tive fechar os recordset veja o exemplo:

sqlLOJA="SELECT DISTINCT loj_fic FROM fichas ORDER BY loj_fic ASC"

rsLoja.Open sqlLoja, cnSQL, adOpenForwardOnly, adLockReadOnly

while not rsLoja.EOF

SQL = "SELECT sum(val_fic) AS total FROM fichas where loj_fic='" & RST("loj_fic") & "'"

rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

Set lst = ListaAlunos.ListItems.Add(, , (rsLoja("Loj_fic")))
lst.SubItems(1) = Format(rsPaciente("total"), "###,##0.00")

rsPaciente.Close

rsLoja.Movenext

Wend

rsLoja.Close

veja agora se você consegue

Edson479

SÃO PAULO
SP - BRASIL

Postada em 27/02/2008 15:52 hs

deu certo, sabre o que ela, esta linha aqui

no seu tinha este RST("loj_fic") &"'" como o meu não tinha eu fazia assim

SQL = "SELECT sum(val_fic) AS total FROM fichas where loj_fic"

agora ele esta assim

SQL = "SELECT sum(val_fic) AS total FROM fichas where loj_fic='" & rsLoja("loj_fic") & "'"
deu certinho ufff. muito obrigado + um vez

Treze

SÃO VICENTE
SP - BRASIL

Postada em 27/02/2008 16:13 hs

são algumas da modificações que fiz por aqui pra testar, desculpe o engano até a proxima

TÓPICO EDITADO

Página(s): 3/3 « ANTERIOR