Msgbox minimizado,porque? Tengo un pequeño problema que, aunque parezca una "pijada", es bastante molesto cuando ocurre. Os cuento.
Tengo un pequeño formulario que permite visualizar datos de los empleados de una empresa y también añadir nuevos. Al añadir uno nuevo, lo que debe hacer el formulario es:
-Comprobar si los datos son correctos.Si no son correctos mostrar un alert indicándolo ("datos incorrectos").
-Si los datos son correctos, añadir empleado y mostrar un msgbox indicándolo ("registro añadido").
El "problema" es que cuando introduzco los datos del nuevo empleado, cuando son correctos todos los datos, resulta que el msgbox de confirmación me sale minimizado, a veces da la impresión de que no se ha añadido.
Pero lo "cachondo" es que esto sólo ocurre la 1º vez que añadimos un empleado nuevo. Si después añadimos más, esto deja de ocurrir.
Alguien tiene la más remota idea de la razón? Os pongo parte del código:
Cita:
Saludos //Javascript:
function validar_campos_personas(){
//En este ejemplo validare 1 solo campo
nombre=document.getElementById('txtnombre').value
var validador = /^[A-Z]/;
//Comprobamos si se ha introducido el nombre
if (!validador.test(nombre))
{
alert("No se ha introducido el nombre o es incorrecto");
return false;
}
}
'VB:
Protected Sub btnaceptar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnaceptar.Click
Dim dr_tpersona As DataRow
'Creamos el nuevo registro
dr_tpersona = dt_tpersona.NewRow()
dr_tpersona("Des_nombre") = txtnombre.Text
'Añadir la fila al datatable
dt_tpersona.Rows.Add(dr_tpersona)
'Guardamos los datos del datarow en la base de datos físicamente
da_tpersona.Update(dt_tpersona)
dt_tpersona.AcceptChanges()
'Este msgbox es el que me sale minimizado la 1ª vez:
MsgBox("Se ha añadido el registro correctamente.", MsgBoxStyle.Information, "Registro añadido")
End Sub
Y es el método onload de la página:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
...
Me.btnaceptar.Attributes.Add("onclick", "javascript:return validar_campos_personas();")
...End sub
function validar_campos_personas(){
//En este ejemplo validare 1 solo campo
nombre=document.getElementById('txtnombre').value
var validador = /^[A-Z]/;
//Comprobamos si se ha introducido el nombre
if (!validador.test(nombre))
{
alert("No se ha introducido el nombre o es incorrecto");
return false;
}
}
'VB:
Protected Sub btnaceptar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnaceptar.Click
Dim dr_tpersona As DataRow
'Creamos el nuevo registro
dr_tpersona = dt_tpersona.NewRow()
dr_tpersona("Des_nombre") = txtnombre.Text
'Añadir la fila al datatable
dt_tpersona.Rows.Add(dr_tpersona)
'Guardamos los datos del datarow en la base de datos físicamente
da_tpersona.Update(dt_tpersona)
dt_tpersona.AcceptChanges()
'Este msgbox es el que me sale minimizado la 1ª vez:
MsgBox("Se ha añadido el registro correctamente.", MsgBoxStyle.Information, "Registro añadido")
End Sub
Y es el método onload de la página:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
...
Me.btnaceptar.Attributes.Add("onclick", "javascript:return validar_campos_personas();")
...End sub
