TextBox que no se quedan vacías.

Unay ha escrito:

Hola.
Estoy con un programa en VisualBasic.Net y me pasa algo muy raro.
Tengo enlazadas las textbox a my BD, todo bien. El problema aparece con
algunas TextBox que tienen valor y cuando quiero quitarselo y dejarlas vacías
y me coloco en otro componente, la textbox se vuelve a llenar con el valor
anterior.

¿Alguien sabe porqué?

Porque tienen personalidad propia :-))

Fuera bromas, comprueba si esos textbox no corresponden a
autonuméricos o son campos relacionados con otras tablas y el valor
que le introduces no es válido (no existe un registro relacionado con
ese valor)

Gracias por contestar Carlos, pero no es nada de eso.

Ninguno de esos campos en la BD son autonumericos, ni están relacionados con
otras tablas.
Igual te doy más pistas diciendote que sólo pasa cuando vacío la TextBox.
Por el contrario si lo que hago es modificar el valor, sí que lo respeta.
Se puede solucionar poniendo su propiedad CauseValidation a false, pero eso
es una chapuza y que tengo otras TextBox que la tienen a true(por defecto en
VS.Net) y funcionan bien.

Igual sí que tienen personalidad propia :D

Un saludo

¿Has comprobado si esos campos son obligatorios?

Pueden ser nulos.
Además sólo pasa con los valores int, real, etc(valores numéricos) en la BD,
cuando tengo una TextBox enlazada a un campor varchar, no sucede. Tiene que
ser la BD y lo normal es pensar que no tengan permiso para ser nulos, pero sí
lo tienen.

"Carlos Gómez" wrote:

¿Has comprobado si esos campos son obligatorios?

Puede ser que haya un problema con el formato.

Prueba los siguiente:

con el binding:



Dim enlace As New Binding("Text", DataTable1, "NombreDelCampo")
AddHandler enlace.Format, AddressOf PonerFormatoEnlace
AddHandler enlace.Parse, AddressOf QuitarFormatoEnlace
Textbox1.DataBindings.Add(enlace)

y las dos funciones
Private Sub QuitarFormatoEnlace _
(ByVal sender As Object, ByVal e As ConvertEventArgs)
If Not TypeOf e.Value Is System.DBNull Then
If Not Integer.TryParse(e.Value.ToString, CInt(e.Value))
e.Value=System.DBNull.Value
End if
End If
End Sub

Private Sub PonerFormatoEnlace _
(ByVal sender As Object, ByVal e As ConvertEventArgs)
If Not TypeOf e.Value Is System.DBNull Then
e.Value = e.Value.ToString
Else
e.Value = 0
End If
End Sub