Modulo Gestion: Cancelar

Cuando estemos editando (var.estado=”Editando”) y pulsemos este boton, dejaremos de editar y borraremos los datos del formulario, sin que se cambien los valores de los registros.

PUBLIC SUB ButtonCancelar_Click()

'ponemos en blanco la propiedad .text de los texbox

PictureBoxFoto.Picture = Picture["icon:/96/gambas"]

TextBoxDNI.text = ""

TextBoxNombre.text = ""

TextBoxApellidos.text = ""

TextBoxEmpresa.text = ""

TextBoxPuesto.text = ""

TextBoxTelfEmpresa.text = ""

TextBoxTelfParticular.text = ""

TextBoxFax.text = ""

TextBoxMovilEmpresa.text = ""

TextBoxMovilParticular.text = ""

TextBoxWEB.text = ""

PictureBoxFoto.Picture = ""

TextBoxDireccion.text = ""

TextBoxObs.text = ""

TextBoxFecha.text = ""

TextBoxCorreo.text = ""

'escribimos en el gridviews el dato introducido

titulo.rellena()

'el setfocus lo ponemos justo al inicio de los datos

TextBoxDNI.SetFocus

'se da por compluido el estado de edicion

var.estado = ""

'hacemos de nuevo accesible el gridViewDatos

gridViewDatos.enabled = True

END

Como observareis mucho codigo se repite en varias zonas del programa, os propongo la optimizacion de este codigo atraves de subrutinas.