Problem with databound combobox
-
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 _____________________ Don't take out the Magic Pen, Don't draw on the Infinity Board - Neil Young