PORCENTAGEM

 Tópico anterior Próximo tópico Novo tópico

PORCENTAGEM

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#492923 - 05/03/2020 23:02:06

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Citação:

Dim Valor1, Valor2, TotalVendas As Decimal
    Private Sub ListaVendaDatas()
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = ""
                If VerificaPDV = 0 Then
                    sql = "SELECT NOMELOJA,TIPO,Sum(VALOR),COUNT(TIPO) FROM CAIXAEMPRESA WHERE DateValue(DATA) >= DateValue('" & dtpInicio.Text & "') AND DateValue(DATA) <= DateValue('" & dtpFim.Text & "') AND NOMELOJA='" & CobLoja.Text & "' AND TIPO <> 'TROCO' AND TIPO <> 'DESCONTO' GROUP BY NOMELOJA,TIPO"
                ElseIf VerificaPDV = 1 Then
                    sql = "SELECT NOMELOJA,TIPO,Sum(VALOR),COUNT(TIPO) FROM CAIXAEMPRESA WHERE DateValue(DATA) >= DateValue('" & dtpInicio.Text & "') AND DateValue(DATA) <= DateValue('" & dtpFim.Text & "') AND NOMELOJA='" & CobLoja.Text & "' AND NUMEROPDV=" & CobPdv.Text & " AND TIPO <> 'TROCO' AND TIPO <> 'DESCONTO' GROUP BY NOMELOJA,TIPO"
                End If
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As New DataTable
                da.Fill(dt)
                dgvVendas.DataSource = dt
                PCalculaTotalReceita()
                For Each i As DataGridViewRow In dgvVendas.Rows
               i.Cells(3).Value = Math.Round(i.Cells(2).Value / TotalVendas * 100, 2)
                Next
                TotalVendas = Nothing
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub
    Private Sub PCalculaTotalReceita()
        On Error Resume Next
        For Each linha As DataGridViewRow In dgvVendas.Rows
            TotalVendas = TotalVendas + linha.Cells(2).Value
        Next
        Total.Text = Format(TotalVendas, "##,##0.00")
    End Sub
  

Problema resolvido, muito obrigado a todos pela ajuda e você JABA pela a função que você postou eu vir o erro. muito obrigado mesmo.
Mudei o COUNT(TIPO) para TIPO ai funcionou no DataGridView



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por AMORIM em 05/03/2020 23:03:11