03/03/2009, 16:34
|
| | | Fecha de Ingreso: agosto-2005
Mensajes: 33
Antigüedad: 18 años, 9 meses Puntos: 0 | |
| Respuesta: Problemas con decimales en datagrid
Hola, me pasaba exactamente lo mismo al querer guardar datos en una bd ms access, lo resolvi con esta funcion, solo la uso a la hora de hacer el INSERT o el UPDATE, para que en pantalla, todo sea transparente. espero te sea de utilidad, un saludo
Private Function ComaXpunto(ByVal StrCadena As String) As String
Dim x As Integer
ComaXpunto = ""
For x = 1 To Len(StrCadena)
If Mid(StrCadena, x, 1) = "," Then
ComaXpunto = ComaXpunto & "."
ElseIf Mid(StrCadena, x, 1) = "." Then
ComaXpunto = ComaXpunto & ""
Else
ComaXpunto = ComaXpunto & Mid(StrCadena, x, 1)
End If
Next
End Function |