Ir para conteúdo
Fórum Script Brasil
  • 0

Select para ranking


Guest --Irenko --

Pergunta

Guest --Irenko --

TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic

Com a query acima eu busco a OS com o maior valor e apresento o resultado. Acontece o seguinte, tenho as OS:

135421 - 10.000,00

135433 - 12.500,00

135444 - 1.000,00

135466 - 1.500,00

Bom acima no ranking esta a OS 135433 com 12.500,00 porem todas são do grupo (1354), como faria para buscar os grupos identicos e somar seus valores pesquisando os quatro primeiros dígitos e dando o resultado de 25.000,00?

Segue abaixo o código completo:

Sub TelaIndice()

AtivaIcon

Dim textranking As Integer

textranking = 3

Set TbResumo = New ADODB.Recordset

TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic

Do While Not TbResumo.EOF

If textranking = 3 Then

Label92.Caption = TbResumo("OS")

Label105.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 2 Then

Label93.Caption = TbResumo("OS")

Label106.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 1 Then

Label94.Caption = TbResumo("OS")

Label107.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 0 Then

Label95.Caption = TbResumo("OS")

Label108.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

textranking = (textranking - 1)

TbResumo.MoveNext

Loop

'Fecha recordset

TbResumo.Close

Set TbResumo = Nothing

Call Gerar

End Sub

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...