|
|
Postada em 27/02/2008 10:34 hs
tabela "fichas" campos nome da loja | valores loj_fic | val_fic |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 27/02/2008 10:51 hs
ficou mais fácil. No seu caso não são duas tabelas e sim dados diferentes na mesma tabela. para isso criei duas Consultas sql uma dentro a outra: a 1ª lista todas lojas sem duplicalas e coloca em ordem crescente a 2ª faz a soma do valor destas lojas e exibe apenas Loja e valor: veja se funciona 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 where loj_fic='" & RST("loj_fic") & "'"
rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly
While Not rsPaciente.EOF
Set lst = ListaAlunos.ListItems.Add(, , (rsLoja("Loj_fic")))
lst.SubItems(1) = Format(rsPaciente("val_fic"), "###,##0.00")
rsPaciente.MoveNext
Wend
rsLoja.Movenext Wend |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 27/02/2008 12:00 hs
esta com erro nesta linha lst.SubItems(1) = Format(rsPaciente("val_fic"), "###,##0.00") "o item não poder ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado" eu fez um teste sem está linha ele esta carregando os nome da loja certinho estou no aguardo
|
|
|
|
|
|
Postada em 27/02/2008 12:54 hs
treze eu fiz assim com a outra dica anderio lst.SubItems(1) = Format(rsPaciente("total"), "###,##0.00") mas o resulta esta saindo igual em toda as lojas Loja | valor loja 1 | 100,00 loja 2 | 100,00 loja 3 | 100,00 ... .. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 27/02/2008 14:04 hs
DESCULPE COMI BOLA O CÓDIGO É ESSE 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")
rsLoja.Movenext
Wend tinha esquecido de alterar o campo para total veja agora |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 27/02/2008 14:24 hs
então deu certo mais todas a loja estão com mesmo valor tem como fazer assim exp loja 1 | 10,00 loja 1 | 15,00 loja 2 | 20,00 loja 3 | 20,00 loja 3 | 30,00 ele trazer assim loja 1 | 25,00 loja 2 | 20,00 loja 3 | 50,00 o seu esta trazendo assim loja 1 | 95,00 loja 2 | 95,00 loja 3 | 95,00 |
|
|
|
|
