Gregorio,

You said in your first post that the problem was occurring when you clicked a checkbox (or something like that) in the first column of your Grid. I don't see the code where you're trying to handle that.

~~Bonnie




>Bonnie:
>
>Here is the code,
>

>-------------------
>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
>