如何以編程方式使用BindingNavigator？

Question

我有一個VB.net窗體，我試圖將一些數據綁定到控件。

我用下面的代碼：

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 

代碼工作，但是當我移動到第二行中的結合導航，控件不更新（見Video）

什麼是否錯過了代碼？

感謝

Answer 1

解決方案：

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