Change binded textbox programatically when addnew

See more:

VB

data-binding

Hi, I have a readonly textbox binded to a customer code in a datatable and a bindingnavigator for this binding source, when I click the addnew button set this textbox empty, how could I change with a code i generate.

The only code i put in the BindingNavigatorAddNewItem.Click Sub is:

ClCodTextBox.Text = PrepararCodigo((ClientesBindingSource.Count + 1).ToString)

the PrepararCodigo() function puts the code in the format I need and I had verified it makes what I want correctly, the problem is when I show the form the ClCodTextBox is empty. I think that the AddNewItem automatic code makes the field empty after I put my code.

Public Class MFTPV

    'Variables Globales
    Dim posicionBindingSource As UInt32


    Private Sub MFTPV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ClientesTableAdapter.Fill(Me.MftpvdbDataSet.Clientes)

    End Sub

    '
    ' CUSTOMERS MANAGEMENT
    '
    Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles ClBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ClientesBindingSource.EndEdit()
        '
        ' Activate BindingNavigator buttons
        '
        CambiarBotonesBindingNavigator(ClientesBindingNavigator, {1, 1, 1, 1, 1, 1, 1, 0, 1})
    End Sub

    Private Sub ClBindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles ClBindingNavigatorAddNewItem.Click
        ClCodTextBox.Text = PrepararCodigo((ClientesBindingSource.Count + 1).ToString)
        posicionBindingSource = ClientesBindingSource.Position
        CambiarBotonesBindingNavigator(ClientesBindingNavigator, {0, 0, 0, 0, 0, 0, 0, 1, 1})

    End Sub
    
    Private Sub ClBindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        Handle ClBindingNavigatorDeleteItem.Click
        ClientesBindingSource.RemoveCurrent()
        ClientesBindingSource.Position = posicionBindingSource
        CambiarBotonesBindingNavigator(ClientesBindingNavigator, {1, 1, 1, 1, 1, 1, 1, 0, 1})
    End Sub

    Private Sub CambiarBotonesBindingNavigator(ByRef BindingNavigator As BindingNavigator, _
        ByVal CambiosBindingNavigator() As Boolean)

        BindingNavigator.Items(0).Visible = CambiosBindingNavigator(0)
        BindingNavigator.Items(1).Visible = CambiosBindingNavigator(1)
        BindingNavigator.Items(2).Visible = CambiosBindingNavigator(2)
        BindingNavigator.Items(3).Visible = CambiosBindingNavigator(3)
        BindingNavigator.Items(4).Visible = CambiosBindingNavigator(4)
        BindingNavigator.Items(5).Visible = CambiosBindingNavigator(5)
        BindingNavigator.Items(6).Visible = CambiosBindingNavigator(6)
        BindingNavigator.Items(7).Visible = CambiosBindingNavigator(7)
        BindingNavigator.Items(8).Visible = CambiosBindingNavigator(8)


    End Sub

End Class

Thanks for your answers.