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.