1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub frmIngredient_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Détection d'une modification sur le form et la datagridview
Me.PlatsBindingSource.EndEdit()
Me.IngredientsBindingSource1.EndEdit()
Dim intPlatsModifié As Integer = Me.OsteriaDataSet.Plats.Select("", "", (DataViewRowState.ModifiedOriginal Or (DataViewRowState.ModifiedCurrent Or DataViewRowState.Added))).GetLength(0)
Dim intdtgridModifié As Integer = Me.OsteriaDataSet.Ingredients.Select("", "", DataViewRowState.ModifiedOriginal Or DataViewRowState.ModifiedCurrent Or DataViewRowState.Added).GetLength(0)
Dim intReponse As DialogResult
Try
If intPlatsModifié > 0 Or intdtgridModifié > 0 Then
intReponse = MessageBox.Show("Vous avez modifié des données sur " & Me.Text & vbNewLine & "FERMER SANS ENREGISTRER?", "MODIFICATION", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If intReponse = Windows.Forms.DialogResult.Yes Then
e.Cancel = False 'si on clique oui alors je ferme le formulaire
Else
e.Cancel = True 'si on clique non je laisse le formulaire reste ouvert
End If
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try |
Partager