-------------------
Dim Depts_changes_final As New DataSet
Dim depts_changes As New DataView
Dim rposition As CurrencyManager
------------------
 Public Sub New(ByVal parentdataset As DataSet)
        Depts_changes_final = parentdataset

        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        Dim depts_lookupdataset2 As New DataSet
        depts_changes.Table = parentdataset.Tables(0)
        depts_changes.RowFilter = "Lsele = True"
        depts_changes.AllowEdit = True
        rposition = CType(Me.BindingContext(depts_changes), CurrencyManager)
        Dim depts_DB As New BindingSource
        depts_DB.DataSource = depts_changes
        Me.Dept_selection_BNav.BindingSource = depts_DB
        Me.Dept_PkTxt.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(1).ToString)
        Me.Dept_nameTXT.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(3).ToString)
        Me.Dept_AbbTxt.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(2).ToString)
        depts_changes.AllowEdit = True
        ' Add any initialization after the InitializeComponent() call.
    End Sub

    
    Private Sub BindingNavigatorMovePreviousItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem.Click
        If rposition.Position > 0 Then
            rposition.Position = rposition.Position - 1
        End If
    End Sub

    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
        If rposition.Position < rposition.Count - 1 Then
            rposition.Position = rposition.Position + 1
        End If
    End Sub

    Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
        rposition.Position = 0
    End Sub

    Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem.Click
        rposition.Position = rposition.Count - 1
    End Sub

    Private Sub Dept_nameTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dept_nameTXT.LostFocus
        Me.depts_changes.Table.Rows(3).EndEdit()
    End Sub