Private Sub frmClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BloqueaCajas_Clientes(True)
daClientes.Fill(DsClientes1)
End Sub
Private Sub BloqueaCajas_Clientes(ByVal bVal As Boolean)
txtNombreCliente.Locked = bVal
txtFecha.Locked = bVal
txtDireccion.Locked = bVal
txtLocalidad.Locked = bVal
txtObservaciones.Locked = bVal
txtProvincia.Locked = bVal
txtTelefono.Locked = bVal
txtTelefonoMovil.Locked = bVal
End Sub
Private Sub btnAnterior_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.ClickEvent
Me.BindingContext(DsClientes1, "Clientes").Position -= 1
End Sub
Private Sub btnSiguiente_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.ClickEvent
Me.BindingContext(DsClientes1, "Clientes").Position += 1
End Sub