Casas decimais

[Robson Wenzel 0]

Olá, sou novo no VB

 

Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$).

 

O meu problema é o seguinte...

No meu banco de dados o campo valor é do tipo moeda e o banco é em access

No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula.

Até ai acho que tudo bem...

Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos

 

Ex.:

Eu digito na text box: R$ 1.250,00

E quando eu salvo aparece na datagridview: 1250

Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50

Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva

 

Por favor! me ajudem.

 

Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros...

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Shared Sub Moeda(ByRef txt As TextBox)
        Dim n As String = String.Empty
        Dim v As Double = 0
        Try
            n = txt.Text.Replace(",", "").Replace(".", "")
            If n.Equals("") Then n = ""
            n = n.PadLeft(3, "0")
            If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1)
            v = Convert.ToString(n) / 100
            txt.Text = String.Format("{0:C2}", v)
            txt.SelectionStart = txt.Text.Length
        Catch ex As Exception

        End Try
    End Sub

    Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress
        Select Case (valortxt.TextLength)

            Case 4
                valortxt.SelectionStart = 5
        End Select
    End Sub

    Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged
        Atendimentos.Moeda(valortxt)
    End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------

Editado Novembro 28, 2018 por quintelab
Adicionado BBCode

[GGerminiani 0]

Olá amigo.

 

Primeiramente, certifique-se que está salvando corretamente no access, por exemplo:

 

cmd.Parameters.AddWithValue("@valor", Convert.ToDecimal(txtValor.Text.Replace("R$", String.Empty).Trim))

 

Para trazer o registro do access, tente:

 

txtValor.Text = FormatCurrency(registro("VALOR"))

 

No access, set o campo para currency (moeda).

 

[]s