Adding a row to dataset adds two rows to datagrid

[dbuchanan]

Where is the logic error that causes the attached code to adds two rows
instead on one to the datagrid?

The code correctly update the datasource with one row, but the datagrid
gets two new rows.

What can I do to correct this?

Circumstances:
There are textboxes on the form where the users will enter data. The
textboxes and the datagrid share the databinding. After the user enters
data into the code behind the save button assembles a datarow and adds
it to the dataset. Then the dataset is updated to the datasource.

You may note that the dataset is containded in a referenced project - a
data access layer (DAL.Tables)

=============== =============== =============== ===========
Private bmb As BindingManagerB ase
Private bNewRowPending as Boolean
Private bEditPending as Boolean
Private Sub CreateBindings( )
' Code for binding not shown
bmb = Me.BindingConte xt(localDsTable s1.tblJobCustom er)
End Sub

Private Sub AddNewRow() ' Called by btnAddNewRow button
bmb.SuspendBind ing()
Call ClearDataEntryC ontrolsForNewRo w()
bNewRowPending = True
'User enters data into the controls
End Sub

Private Sub SaveRowChanges( ) ' Save button calls this

' Determine if it is an Added or Edited Row
If bNewRowPending Then

' Code that adds a new row
Call RowToSave() ' See code below
bmb.Position = bmb.Count
Call UpdateDataSet()
bmb.ResumeBindi ng()
bNewRowPending = False
ElseIf bEditPending Then

' Code that saves edited rows
bEditPending = False
End If
End Sub

Private Sub RowToSave()

Me.localDsTable s1.tblJobCustom er.AddtblJobCus tomerRow( _
Me.lblpkJobCust omerId.ToString , _
Me.txtJobNumber .Text.ToString, _
Me.cboCustomerN ame.Text.ToStri *ng, _
Me.txtJobDescri ption.Text.ToSt ring, _
Me.txtJobRefNum .Text.ToString, _
Me.txtUserNote. Text.ToString)
End Sub

Private Sub UpdateDataSet() 'in the DataAccessLayer

'New DataSet to hold changes
Dim dsDataChanges As New DAL.dsTables 'the DataSet

'Stop any current edits
Me.BindingConte xt(Me.localDsTa bles1,
"tblJobCustomer ").EndCurrentEd *it()

'Get the changes that have been made to the dataset
dsDataChanges = CType(Me.localD sTables1.GetCha nges,
DAL.dsTables) 'the DataSet

'Check to see if any changes are pending
If (Not (dsDataChanges) Is Nothing) Then
Try
' Access the update method in the DataAccessLayer
Dim JobCustomerDT As New DAL.Tables
JobCustomerDT. UpdateDataSourc e (dsDataChanges)
localDsTables1. Merge(dsDataCha *nges)
localDsTables1. AcceptChanges()

Catch UpdateDataSetEx ception As Exception
Throw UpdateDataSetEx ception
End Try '

End If

=== Code in the DataAccessLayer ===

Public Function UpdateDataSourc e(ByVal ChangedRows As DAL.dsTables)
As dsTables '<< the xsd
Try
'Check to see if there are any pending changes
If (Not (ChangedRows) Is Nothing) Then
Me.daJobCustome r.Update(Change *dRows)
End If
Catch UpdateException As Exception
Throw UpdateException
End Try
Return Me.DataSet11
End Function

=============== =============== =============== ===========

Where is the logic error?

Thank you,
Doug

[Cor Ligthert]

Dough,

This is mostly hard to see.

However the most change is that you have (expressly when you use
autoincrement) filled your dataset again and the new row is added to the old
dataset.

Cor

[dbuchanan]

Thank you for your replay.

I found the error.
Me.lblpkJobCust omerId.ToString *, _ ' <<< Error Here.
Me.lblpkJobCust omerId.Text.ToS tring*, _ ' <<< Correction

This entered "SystemWIndows. Form.Label, Text: 4c" into my GUID string.
(I was using a form generated GUID for my ID key)
My most foolish mistake was in having the ID field hidden while trying
to troublshoot the problem. With the ID field shown I could then see
the unexpected entry.

Private Sub RowToSave()
Me.localDsTable s1.tblJobCustom *er.AddtblJobCu stomerRow( _
Me.lblpkJobCust omerId.ToString *, _ ' <<< Error Here.
Me.txtJobNumber .Text.ToString, _
Me.cboCustomerN ame.Text.ToStri **ng, _
Me.txtJobDescri ption.Text.ToSt *ring, _
Me.txtJobRefNum .Text.ToString, _
Me.txtUserNote. Text.ToString)
End Sub

Thank you.