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
------------------------------------------------------------------------------------------------------------------------------------------------------------
