Módulo Gestión. Borrar datos editados: Remove()

Nos referimos esta vez a borrar un registro por completo (de la matriz o del array que con lo contenga).
Borraremos el registro de datos que estemos editando (eliminacion total de la matriz). Para ello tenemos el metodo .REMOVE(indice), que indicandole el indice que queramos eleminar/borrar lo hara automaticamente y automaticamente modificará tambien el número de elementos .COUNT

PUBLIC SUB ButtonBorrar_Click()

IF var.estado<> "Edicion" then

'si estamos en mode "introduccion de datos"

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 = ""

ENDIF

IF var.estado= "Edicion" then

var.id.REMOVE(var.RegistroEditado)

var.dni.REMOVE(var.RegistroEditado)

var.nombre.REMOVE(var.RegistroEditado)

var.apellidos.REMOVE(var.RegistroEditado)

var.empresa.REMOVE(var.RegistroEditado)

var.puesto.REMOVE(var.RegistroEditado)

var.telf_empresa.REMOVE(var.RegistroEditado)

var.telf_parti.REMOVE(var.RegistroEditado)

var.fax.REMOVE(var.RegistroEditado)

var.movil_empresa.REMOVE(var.RegistroEditado)

var.movil_parti.REMOVE(var.RegistroEditado)

var.pag.REMOVE(var.RegistroEditado)

var.foto.REMOVE(var.RegistroEditado)

var.direccion.REMOVE(var.RegistroEditado)

var.observaciones.REMOVE(var.RegistroEditado)

var.fecha_datos.REMOVE(var.RegistroEditado)

var.correo.REMOVE(var.RegistroEditado)

'Y PONEMOS TODOS LOS CAMPOS EN BLANCO....

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 = ""

ENDIF

'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

PUBLIC SUB ButtonBorrar_Click()

IF var.estado<> "Edicion" then

'si estamos en mode "introduccion de datos"

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 = ""

ENDIF

IF var.estado= "Edicion" then

var.id.REMOVE(var.RegistroEditado)

var.dni.REMOVE(var.RegistroEditado)

var.nombre.REMOVE(var.RegistroEditado)

var.apellidos.REMOVE(var.RegistroEditado)

var.empresa.REMOVE(var.RegistroEditado)

var.puesto.REMOVE(var.RegistroEditado)

var.telf_empresa.REMOVE(var.RegistroEditado)

var.telf_parti.REMOVE(var.RegistroEditado)

var.fax.REMOVE(var.RegistroEditado)

var.movil_empresa.REMOVE(var.RegistroEditado)

var.movil_parti.REMOVE(var.RegistroEditado)

var.pag.REMOVE(var.RegistroEditado)

var.foto.REMOVE(var.RegistroEditado)

var.direccion.REMOVE(var.RegistroEditado)

var.observaciones.REMOVE(var.RegistroEditado)

var.fecha_datos.REMOVE(var.RegistroEditado)

var.correo.REMOVE(var.RegistroEditado)

'Y PONEMOS TODOS LOS CAMPOS EN BLANCO....

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 = ""

ENDIF

'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

Nota: Ver mejoras en presentacion de imagenes Anexo II: convert, miniaturas en nuestro gridViewDatos