Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

andrejkl

Nao consigo guardar os zeros

Mensagens Recomendadas

andrejkl    0
andrejkl

Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
	Dim final As Double
	final = CDbl(valor1.Text) + CDbl(valor2.Text) + CDbl(valor3.Text) + CDbl(valor4.Text) + CDbl(valor5.Text) + CDbl(valor6.Text)
	resultado.Text = final.ToString("##,##0.00")
End

Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
	Try
		RecibosTableAdapter.Modificar(TextBox2.Text, TextBox5.Text, TextBox1.Text, TextBox4.Text, preço1.Text, quant1.Text, CDbl(valor1.Text), TextBox6.Text, preço2.Text, quant2.Text, CDbl(valor2.Text), TextBox7.Text, preço3.Text, quant3.Text, CDbl(valor3.Text), TextBox8.Text, preço4.Text, quant4.Text, CDbl(valor4.Text), TextBox9.Text, preço5.Text, quant5.Text, CDbl(valor5.Text), TextBox10.Text, preço6.Text, quant6.Text, CDbl(valor6.Text), CDbl(resultado.Text), Extenso.Text, TextBox3.Text, TextBox2.Text)
		RecibosTableAdapter.Fill(Centro_SocialDataSet.Recibos)
		MessageBox.Show("guardado")
	Catch ex As Exception
		MessageBox.Show("Erro ao guardar")
	End Try
End Sub

Quando eu tento guardar 4,50 ele arredonda para 4,5, alguem consegue-me resolver isso

ja tentei por decimal nao resulta

Editado por apocsantos
geshi

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nelsonr    333
nelsonr

Boas,

se estás a guardar num campo numérico, o problema não será guardar, mas sim formatar ao apresentares o valor

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
andrejkl    0
andrejkl
Dim p2, q2 As Decimal
	Dim soma2 As Decimal
	q2 = quant2.Text
	p2 = preço2.Text
	p2 = p2.ToString("###,##0.00")
	soma2 = q2 * p2
	valor2.Text = soma2.ToString("###,##0.00")
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles preço3.TextChanged
	Dim p3, q3, soma3 As Double
	q3 = quant3.Text
	p3 = preço3.Text
	soma3 = q3 * p3
	valor3.Text = soma3.ToString("###,##0.00")
End Sub

Private Sub TextBox15_TextChanged(sender As Object, e As EventArgs) Handles preço4.TextChanged
	Dim p4, q4, soma4 As Double
	q4 = quant4.Text
	p4 = preço4.Text
	soma4 = q4 * p4
	valor4.Text = soma4.ToString("###,##0.00")
End Sub

Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles preço5.TextChanged
	Dim p5, q5, soma5 As Decimal
	q5 = quant5.Text
	p5 = preço5.Text
	soma5 = q5 * p5
	valor5.Text = soma5.ToString("###,##0.00")
End Sub

Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles preço6.TextChanged
	Dim q6, p6, soma6 As Decimal
	q6 = quant6.Text
	Format("#,###.00")
	p6 = preço6.Text
	soma6 = q6 * p6.ToString("#,###.00;(#,###.00)")
	valor6.Text = soma6.ToString("#,###.00;(#,###.00)")
End Sub

Private Sub preço_TextChanged(sender As Object, e As EventArgs) Handles preço1.TextChanged
	Dim q1, soma, p1 As Decimal
	q1 = quant1.Text
	p1 = preço1.Text
	p1 = p1.ToString("###,##0.00")
	soma = q1 * p1
	valor1.Text = soma.ToString("#,###.00;( #,###.00)")
End Sub

Editado por apocsantos
geshi

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
andrejkl    0
andrejkl
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
	Dim final As Decimal
	final = CDec(valor1.Text) + CDec(valor2.Text) + CDec(valor3.Text) + CDec(valor4.Text) + CDec(valor5.Text) + CDec(valor6.Text)
	Me.Extenso.Text = NumberToEuro(Me.resultado.Text)
	resultado.Text = final.ToString("#,###.00;(#,###.00)")
End Sub

Editado por apocsantos
geshi

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.