RE:Ejemplo de mantenimiento de tablas con DAta Win
De manera simple, se tiene:
* Primer registro:
dw_1.ScrollToRow(1)
* Anterior registro:
dw_1.ScrollPriorRow()
* Siguiente registro:
dw_1.ScrollNextRow()
* Ultimo registro:
dw_1.ScrollToRow(dw_1.RowCount())
* Nuevo registro:
Integer N
//Agrega un registro al final y vamos a ese registro.
N=Dw_1.InsertRow(0)
Dw_1.ScrollToRow(N)
// Fijamos el foco
Dw_1.SetFocus()
* Guardar
Dw_1.Update()
* Ignorar registro (aparece el cursor en el primer registro)
Dw_1.Retrieve()
* Ignorar registro (el cursor permanece en el mismo registro):
Integer N
//Averiguamos en que registro estamos
N=dw_1.GetRow()
//Recuperamos los registros hasta la última vez que se guardó
dw_1.Retrieve()
//Nos vamos al número de registro en el que estábamos
dw_1.ScrollToRow(N)
* Eliminar registro:
Integer N
N=MessageBox(“Aviso”, “Seguro que desea eliminar?”, Question!, YesNo!)
If N=1 Then
//Elimina el registro del DataWindow
Dw_1.DeleteRow(Dw_1.GetRow())
//Es necesario actualizar el DataWindow
Dw_1.Update()
End If
* Salir
//Halt Close cierra la ventana activa y sale de la aplicación
Halt Close