Permitir solo números con 2 decimales y no letras en el datagriview en vb.net

CarmenRocio · #1 (**permalink**) 24/06/2010, 14:54

Hola a todos como están necesito ingresar números con 2 decimales en mi datagridview para luego grabar bueno estuve buscando en la web y hay un código que te permite hacer algo así por ejemplo en este código que cambie tu puedes ingresar números del 1,2,3,4,5,6,7,8,9,0 y además un solo “.” O coma”,” si es que lo cambias pero el problema de este código es que después del punto ingresas varios decimales por ejemplo 12.33389 y quiero solo ingresar 2 decimales por favor me pueden ayudar con este problemita que tengo y si hay otra forma mejor le agradecería mucho.
Gracias.

Código:

Private Sub dgvUit_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvUit.EditingControlShowing
        If e.CellStyle.Format = "N2" Then
            AddHandler e.Control.KeyPress, AddressOf validar_Keypress
End If

Private Sub validar_Keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        'Obtener indice de la columna 
        Dim columna As Integer = dgvUit.CurrentCell.ColumnIndex
        ' Verificar columna actual 
        If columna = 2 Then
            Dim caracter As Char = e.KeyChar
            ' referencia a la celda 
            Dim txt As TextBox = CType(sender, TextBox)
            ' Comprobar si es un número con isNumber, si es el backspace, si el caracter 
            ' es el separador decimal, y que no contiene ya el separador 
            If (Char.IsNumber(caracter)) Or (caracter = ChrW(Keys.Back)) Or (caracter = ".") And (txt.Text.Contains(".") = False) Then
                e.Handled = False
            Else
                e.Handled = True
            End If
        End If
End Sub

CarmenRocio · #2 (**permalink**) 24/06/2010, 15:27

Bueno como no encontre hasta el momento nada por mientras he cambiado el formato de mi columna a moneda para cuando yo registre no me salga error. el formato de moneda es "C2"
y C2 lo cambias por N2 en sub dgvUit_EditingControlShowing del datagridview.
si yo registro por ejemplo 12.5555 y le doy grabar lo graba como 12.56 espero que me puedan seguir ayudando aqui gracias

gakutaru · #3 (**permalink**) 25/06/2010, 15:58

m...
se me ocurre que, si es para validar una textbox, lo mas elegante seria con javascript.

si no es el caso, y lo que necesitas es mostrar 2 decimales porque se ve feo con muchos decimales el numero. entonces puedes acortar lo que muestas, asi:

Código vb:

Ver original<html>
<head>
<script runat="server">
    Sub Page_Load()
        Dim fltNumero As Decimal = 3243422.3434343
        Label1.Text += "<li>" & fltNumero.ToString("#,0.##") & "</li>" 'mostrara 3.243.422,34 
        Label1.Text += "<li>" & fltNumero.ToString("#.##") & "</li>" 'mostrara 3243422,34 
    End Sub
</script>
</head>
<body>
<form runat="server">
<asp:Label runat="server" ID="Label1"  />
</form>
</body>
</html>

ahora si no importa en tus calculos el margen de error al quitar los decimales.

puedes utilizar una funcion que busque el punto o la coma y cuando la encuentre cortar el numero, la logica seria
determinar el largo del numero (La Funcion Len() de VB hace eso)
y con la Funcion Mid() vas cortando la cadena,
asi buscas en cada caracter con la funcion Mid mientras dure el largo, cuando encuentre una coma tomas los siguentes dos caracteres y creas el numero, al final devuelves un tipo decimal, eso se me ocurre que puedes hacer, pero la clave esta en utilizar conrrectamente la funcion Mid y Len

aqui lo que hace la funcion Mid:

Código vb:

Ver original' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

espero te sirva.

CarmenRocio · #4 (**permalink**) 26/06/2010, 08:34

hola como estas gracias por contestarme no puedo trabajar con javascript actualmente trabajo con vb.net 2008 pero bueno gracias de todas maneras por darme una idea.