MOVERSE POR LOS REGISTROS VB.NET CURRENCYMANAGER
Hola a todos, hoy os traigo un ejemplo de como moverse por los registros de un Datatable.
Lo primero que haremos sera crear el datatable y crear los registros etc etc etc.
Para navergar por los registros vamos a utliziar el currencymanager, y veras que sencillo es.
Contenido del Load
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Public CR As CurrencyManager Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dt As New DataTable dt.Columns.Add("Id") : dt.Columns.Add("Nombre") Dim dr As DataRow dr = dt.NewRow dr("id") = 1 dr("Nombre") = "Juan" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 2 dr("Nombre") = "Lucas" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 3 dr("Nombre") = "Pablo" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 4 dr("Nombre") = "Maria" dt.Rows.Add(dr) dt.TableName = "Nombres" CR = CType(Me.BindingContext(dt), CurrencyManager) CR.Position = 0 Me.TextBox1.DataBindings.Add("Text", dt, "Nombre") Me.TextBox2.DataBindings.Add("Text", dt, "Id") |
Como veis hemos puesto como mienbro publico en globar CR que es el currencymanager.
y hemos asignado los bindings a su control pertinente.
Ahora hemos creado dos botones, Adelante y Atras, de los cuales aplicaremos el siguiente codigo.
Boton Adelante:
1 2 3 |
If CR.Position <> CR.Count - 1 Then CR.Position += 1 End If |
Boton Atras
1 2 3 |
If CR.Position > -1 Then CR.Position -= 1 End If |
Ya tendriamos todo resuelto para poder navegar por los registros del datatable en nuestro formulario