Bindingnavigator (suppression avec confirmation) vb2005

Signaler
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
-
Messages postés
4
Date d'inscription
samedi 19 juin 2004
Statut
Membre
Dernière intervention
2 septembre 2008
-
Bonjour,

j'ai un BindingNavigator associé à un DataGridView qui comporte un boutton Supprimer standard.
je souhaiterai demander la confirmation de suppression (par un msgbox) avant de supprimer réellement la ligne ?
je n'arrive pas à choper l'évènement au vol avant qu'il fasse le remove

merci de votre aide.
A voir également:

2 réponses

Messages postés
687
Date d'inscription
lundi 10 janvier 2005
Statut
Membre
Dernière intervention
27 août 2014
3
Salut

Essaie ca :
1 - tu crees un autre bouton Supprimer sur ton bindingnavigator ou tu vide la propritété DeleteItem du bindingNavigator afin d'enlever la liaison

2 -
dans evenement Click
remplace Datagridview1 par le nom de ton datgridview
et Bindsource par le nom du Bindingsource de ton bindingnavigator
>>

Private
Sub ToolStripButton1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles ToolStripButton1.Click

Try

Dim strMessage
As
String

Dim slbl
As
Stringslbl = Trim(DataGridView1.CurrentRow.Cells(0).Value)

slbl = Trim(slbl)

strMessage =

String.Format(
"Désirez-vous supprimer {0} ?", slbl)

If MessageBox.Show(strMessage,
"Confirmation", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK
Then

TryBindingSource.RemoveCurrent()

Me.BindingSource.EndEdit()datadapter.update(DataSet.datatable)

Catch ex
As ExceptionMessageBox.Show(

"Erreur rencontrée : " & ex.Message.ToString)

End
Try

Else

'

End
If

Catch ex
As Exception

End
Try

End
Sub

Private
Sub ToolStripButton1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles ToolStripButton1.Click

Try

Dim strMessage
As
String

Dim slbl
As
Stringslbl = Trim(DataGridView1.CurrentRow.Cells(0).Value)

slbl = Trim(slbl)

strMessage =

String.Format(
"Désirez-vous supprimer {0} ?", slbl)

If MessageBox.Show(strMessage,
"Confirmation", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK
Then

TryBindingSource.RemoveCurrent()

Me.BindingSource.EndEdit()datadapter.update(DataSet.datatable)

Catch ex
As ExceptionMessageBox.Show(

"Erreur rencontrée : " & ex.Message.ToString)

End
Try

Else

'

End
If

Catch ex
As Exception

End
Try

End
Sub

+
Messages postés
4
Date d'inscription
samedi 19 juin 2004
Statut
Membre
Dernière intervention
2 septembre 2008

salut


j'ai un BindingNavigator qui ne veu pa faire d'update dans une base Msql commentn puis y remedier

 MG01