none
Preciso que o valor final da primeira linha da gidview apareça somando com a segunda linha da gridview RRS feed

  • Pergunta

  • a primeira linha recebe um valor do textbox que faz o calculo final, e na segunda linha pega o resultado do calculo final e faz outra soma dando o resultado final.

    preciso de ajuda.

    segunda-feira, 27 de abril de 2015 20:12

Respostas

  • sim fiz esse codigo dentro do botão


        meuModulo.teste = ""
            meuModulo.correcao = ""
    
    
            Dim dataInicio, dataFim, dataAtual As Date
            dataInicio = TextBox2.Text
            dataFim = TextBox3.Text
            dataAtual = Today
    
    
            If dataInicio > dataFim Then
    
                Label8.Text = "Data inicio maior que data fim"
                Label8.Visible = True
                GridView2.Visible = False
    
            Else
                Label8.Visible = False
                GridView2.Visible = True
    
            End If
    
    
            If dataFim > dataAtual Then
    
                Label9.Text = "Data fim maior que data atual"
                Label9.Visible = True
                GridView2.Visible = False
    
            Else
                Label9.Visible = False
                GridView2.Visible = True
    
    
    
            End If

    e depois esse dentro da gridView usando o meuModulo dentro dor for, assim vai pegando e somando conforme selecione as datas.

    If e.Row.RowType = DataControlRowType.DataRow Then
    
                Dim recebe As Label = e.Row.FindControl("Label4")
                Dim recebeFinal As Label = e.Row.FindControl("Label5")
                Dim cotacaoIndice As Label = e.Row.FindControl("Label2")
                Dim ValorCorrecao As Label = e.Row.FindControl("Label6")
                Dim valorFinal As Label = e.Row.FindControl("Label7")
    
                Dim Valor As Decimal = TextBox1.Text
    
    
                Dim a As Decimal
                a = cotacaoIndice.Text
    
    
    
                Dim b As Decimal
    
    
                b = ((Valor / 100) * a) + Valor
    
    
                'recebe.Text = Valor
                Dim correcao As Decimal
                correcao = FormatCurrency(((Valor / 100) * a))
                ValorCorrecao.Text = FormatCurrency(correcao)
    
                recebeFinal.Text = FormatCurrency(b)
    
    
    
    
                For i = 0 To GridView2.Rows.Count
    
    
    
                    If i = 0 Then
    
                        recebe.Text = Valor
                        recebe.Text = FormatCurrency(Valor)
                    End If
    
    
    
                    If i > 0 Then
                     
                        recebe.Text = meuModulo.teste
                        recebeFinal.Text = ((meuModulo.teste / 100) * a) + recebe.Text
                        recebeFinal.Text = FormatCurrency(recebeFinal.Text, 2)
    
                        ValorCorrecao.Text = meuModulo.correcao
    
                        ValorCorrecao.Text = FormatCurrency((recebe.Text / 100) * a, 2)
                        
    
    
    
                        
                    End If
    
    
    
    
                Next
         
    
                meuModulo.teste = recebeFinal.Text
    
    
    
    
    
    
            End If

    • Sugerido como Resposta Marcio Camargo sexta-feira, 4 de março de 2016 20:08
    • Marcado como Resposta Marcos SJ segunda-feira, 7 de março de 2016 10:45
    sexta-feira, 4 de março de 2016 19:52

Todas as Respostas

  • Boa tarde Alessandro,

    Poderia nos enviar mais detalhes do seu problema e o seu código, para que possamos analisar com mais precisão onde está localizado o erro?

    Obrigado,

    Abraço!


    Eduardo Romero

    Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.

    terça-feira, 28 de abril de 2015 17:32
    Moderador
  • Boa tarde Alessandro,

    Poderia nos enviar mais detalhes do seu problema e o seu código, para que possamos analisar com mais precisão onde está localizado o erro?

    Obrigado,

    Abraço!


    Eduardo Romero

    Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.

    Protected Sub GridView2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView2.RowDataBound
            If e.Row.RowType = DataControlRowType.DataRow Then
    
                Dim recebe As Label = e.Row.FindControl("Label4")
                Dim recebeFinal As Label = e.Row.FindControl("Label5")
                Dim cotacaoIndice As Label = e.Row.FindControl("Label2")
                Dim ValorCorrecao As Label = e.Row.FindControl("Label6")
    
                
                Dim Valor As Decimal = TextBox1.Text
    
                Dim a As Decimal
                a = cotacaoIndice.Text
    
    
    
                Dim b As Decimal
    
                b = ((Valor / 100) * a) + Valor
    
    
                'recebe.Text = Valor
                Dim correcao As Decimal
    
                correcao = FormatCurrency(((Valor / 100) * a))
                ValorCorrecao.Text = correcao
    
                recebeFinal.Text = FormatCurrency(b)
    
             
                If GridView2.Rows.Count = 0 Then
    
                    recebe.Text = Valor
    
                ElseIf GridView2.Rows.Count > 0 Then
    
    
                End If
    
               
    
    
    
    
    
    
            End If
    Eduardo, tenho que pegar o resultado final da primeira linha colocar na segunda linha em valor inicial, e fazer o resultado final na segunda linha, conforme esta selecionada a data


    quarta-feira, 29 de abril de 2015 12:56
  • Boa tarde,

    Tudo bem?

    Encontrou alguma solução para o seu problema?

    Atenciosamente

    Marcos SJ

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 12 de fevereiro de 2016 18:36
  • sim fiz esse codigo dentro do botão


        meuModulo.teste = ""
            meuModulo.correcao = ""
    
    
            Dim dataInicio, dataFim, dataAtual As Date
            dataInicio = TextBox2.Text
            dataFim = TextBox3.Text
            dataAtual = Today
    
    
            If dataInicio > dataFim Then
    
                Label8.Text = "Data inicio maior que data fim"
                Label8.Visible = True
                GridView2.Visible = False
    
            Else
                Label8.Visible = False
                GridView2.Visible = True
    
            End If
    
    
            If dataFim > dataAtual Then
    
                Label9.Text = "Data fim maior que data atual"
                Label9.Visible = True
                GridView2.Visible = False
    
            Else
                Label9.Visible = False
                GridView2.Visible = True
    
    
    
            End If

    e depois esse dentro da gridView usando o meuModulo dentro dor for, assim vai pegando e somando conforme selecione as datas.

    If e.Row.RowType = DataControlRowType.DataRow Then
    
                Dim recebe As Label = e.Row.FindControl("Label4")
                Dim recebeFinal As Label = e.Row.FindControl("Label5")
                Dim cotacaoIndice As Label = e.Row.FindControl("Label2")
                Dim ValorCorrecao As Label = e.Row.FindControl("Label6")
                Dim valorFinal As Label = e.Row.FindControl("Label7")
    
                Dim Valor As Decimal = TextBox1.Text
    
    
                Dim a As Decimal
                a = cotacaoIndice.Text
    
    
    
                Dim b As Decimal
    
    
                b = ((Valor / 100) * a) + Valor
    
    
                'recebe.Text = Valor
                Dim correcao As Decimal
                correcao = FormatCurrency(((Valor / 100) * a))
                ValorCorrecao.Text = FormatCurrency(correcao)
    
                recebeFinal.Text = FormatCurrency(b)
    
    
    
    
                For i = 0 To GridView2.Rows.Count
    
    
    
                    If i = 0 Then
    
                        recebe.Text = Valor
                        recebe.Text = FormatCurrency(Valor)
                    End If
    
    
    
                    If i > 0 Then
                     
                        recebe.Text = meuModulo.teste
                        recebeFinal.Text = ((meuModulo.teste / 100) * a) + recebe.Text
                        recebeFinal.Text = FormatCurrency(recebeFinal.Text, 2)
    
                        ValorCorrecao.Text = meuModulo.correcao
    
                        ValorCorrecao.Text = FormatCurrency((recebe.Text / 100) * a, 2)
                        
    
    
    
                        
                    End If
    
    
    
    
                Next
         
    
                meuModulo.teste = recebeFinal.Text
    
    
    
    
    
    
            End If

    • Sugerido como Resposta Marcio Camargo sexta-feira, 4 de março de 2016 20:08
    • Marcado como Resposta Marcos SJ segunda-feira, 7 de março de 2016 10:45
    sexta-feira, 4 de março de 2016 19:52