How do I set the default text in a bound textbox?

Question

How do I set the default value of a bound textbox when the AddNewItem button on the MenuStrip is clicked?
 I have the following code (see below), but for some reason it does work when I put the code in the
AddNewItem_Click event; however, it does work if I put it in the
Form's Load Event. The statement in question is Me.txtBusUsagePct.Text = 100.
What am I doing wrong? Why can't I set the default text in the AddNewItem_Click
event?
   Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
Me.txtBusUsagePct.Text = "100"
   End Sub
BobV365

Answer 1

Hello,
Here I am using mocked up data but the important thing is after loading the data. Requires on the form a BindingNavigator and two text boxes.
Public Class Form1
WithEvents bsData As New BindingSource
Private Sub Form1_Load(
ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Using MockedData As New DataTable()
MockedData.Columns.AddRange(New DataColumn() _
New DataColumn("PartName", GetType(String)),
New DataColumn("partqty", GetType(Int32))
MockedData.Rows.Add(New Object() {"Part A", 100})
MockedData.Rows.Add(New Object() {"Part 99", 34})
MockedData.Rows.Add(New Object() {"Part B", 4})
bsData.DataSource = MockedData
End Using
CType(bsData.DataSource, DataTable).AcceptChanges()
BindingNavigator1.BindingSource = bsData
TextBox1.DataBindings.Add("Text", bsData, "Partname")
TextBox2.DataBindings.Add("Text", bsData, "partqty")
End Sub
Private Sub bsData_AddingNew(
ByVal sender As Object,
ByVal e As System.ComponentModel.AddingNewEventArgs) _
Handles bsData.AddingNew
Dim dv As DataView = TryCast(bsData.List, DataView)
Dim rv As DataRowView = dv.AddNew()
rv("PartName") = "(new)"
rv("partqty") = 0
e.NewObject = rv
bsData.MoveLast()
End Sub
End Class
Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem. Contact via my webpage under my profile
but do not reply to forum questions.