Usuário com melhor resposta
Preciso que o valor final da primeira linha da gidview apareça somando com a segunda linha da gridview

Pergunta
-
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
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. -
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
- Editado Alessandro Schuquel Pedroso quarta-feira, 29 de abril de 2015 12:57
-
Boa tarde,
Tudo bem?
Encontrou alguma solução para o seu problema?
AtenciosamenteMarcos 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.
-
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