1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
Private Sub (ByVal afzender als Voorwerp, ByVal e als System.Windows.Forms.DataGridViewCellEventArgs) Handvatten DataGridView1_RowValidated DataGridView1.RowValidated Schemerige lResponse zoals lang Als UpdatePending toen lResponse = MessageBox.Show („wenst u om veranderingen te bewaren? “, „de Gegevens zijn“, MessageBoxButtons.YesNo veranderd) Als lResponse = vbYes toen Probeer Verduister command_builder als SqlCommandBuilder command_builder = Nieuwe SqlCommandBuilder (daHotel) Me.daHotel.Update (dsHotel.Tables (0)) DataGridView1.Refresh () Me.UpdatePending = Vals Vangst ex als Uitzondering Ex MessageBox.Show (. Bericht) Het eind probeert Anders DataGridView1.Refresh () Me.UpdatePending = Vals Eind als Anders Me.UpdatePending = Vals Eind als Sub van het eind