Problem with saving a databound combobox

K

kutz

Newcomer
Joined
Jan 30, 2005
Messages
4
Hi all,

I am having a problem with a databound combobox in that when I save the record (ie, end current edit,update the database and accept the changes) the combobox resets its value back to the first object in the list.

Anyone else experienced this problem before?

My code for saving goes something like this.

'MsgBox("Record Saved")
'Create a new dataset to hold the changes that have been made to the main dataset.
Dim objDataSetChanges As Buckner_Intranet.dsNCR = New Buckner_Intranet.dsNCR

'Stop any current edits.
Me.BindingContext(DsNCR1, "NCR").EndCurrentEdit()
Me.BindingContext(Me.DsNCR1, "Responses").EndCurrentEdit()

'Get the changes that have been made to the main dataset.
objDataSetChanges = CType(DsNCR1.GetChanges, Buckner_Intranet.dsNCR)

'Check to see if any changes have been made.
If (Not (objDataSetChanges) Is Nothing) Then
Try
Me.BindingContext(Me.DsNCR1, "NCR").EndCurrentEdit()
Me.BindingContext(Me.DsNCR1, "Responses").EndCurrentEdit()
daNCR.Update(Me.DsNCR1, "NCR")
daResponses.Update(Me.DsNCR1, "Responses")
Catch eUpdate As System.Exception
MsgBox(eUpdate.Message)
End Try

'Commit the changes that were just merged
'This moves any rows marked as updated, inserted or changed to being marked as original values
DsNCR1.AcceptChanges()
End If

Cheers for any help you might be able to offer.

Kutz
 
Back
Top