Tengo un VB.net forma y estoy tratando de enlazar algunos de los datos a los controles.

Estoy usando el siguiente código:

Private Sub InitDataLayer()
    'Create table
    DataTable = New DataTable

    DataTable.Columns.Add("ID")
    DataTable.Columns("ID").DataType = GetType(Integer)
    DataTable.Columns("ID").AllowDBNull = False        

    DataTable.Columns.Add("Name")
    DataTable.Columns("Name").DataType = GetType(String)
    DataTable.Columns("Name").AllowDBNull = False

    'Create new rows
    '1st Row
    Dim NewRow As DataRow = DataTable.NewRow
    NewRow.Item("ID") = 1
    NewRow.Item("Name") = "John"
    DataTable.Rows.Add(NewRow)

    '2nd Row
    NewRow = DataTable.NewRow
    NewRow.Item("ID") = 2
    NewRow.Item("Name") = "Steve"
    DataTable.Rows.Add(NewRow)

    'Bind controls
    'Textboxes
    TextBoxID.DataBindings.Add(New Binding("text", DataTable, "ID"))
    TextBoxName.DataBindings.Add(New Binding("text", DataTable, "Name"))

    'Navigator
    Dim BS As New BindingSource
    BS.DataSource = DataTable
    BindingNavigator1.BindingSource = BS
End Sub

El código funciona, pero cuando me pase a la segunda fila de la unión de navegador, los controles no actualizar (ver Video)

Lo que falta en el código por favor ?

Gracias

1 Comentario

  1. 0

    Solución:

    Private Sub InitDataLayer()
        'Create table
        DataTable = New DataTable
    
        DataTable.Columns.Add("ID")
        DataTable.Columns("ID").DataType = GetType(Integer)
        DataTable.Columns("ID").AllowDBNull = False        
    
        DataTable.Columns.Add("Name")
        DataTable.Columns("Name").DataType = GetType(String)
        DataTable.Columns("Name").AllowDBNull = False
    
        'Create new rows
        Dim NewRow As DataRow = DataTable.NewRow
        NewRow.Item("ID") = 1
        NewRow.Item("Name") = "John"
        DataTable.Rows.Add(NewRow)
    
        NewRow = DataTable.NewRow
        NewRow.Item("ID") = 2
        NewRow.Item("Name") = "Steve"
        DataTable.Rows.Add(NewRow)
    
        'Bind controls
        Dim BS As New BindingSource
        BS.DataSource = DataTable
    
        TextBoxID.DataBindings.Add(New Binding("text", BS, "ID"))
        TextBoxName.DataBindings.Add(New Binding("text", BS, "Name"))
    
        BindingNavigator1.BindingSource = BS
    End Sub

Dejar respuesta

Please enter your comment!
Please enter your name here