Soyez le premier à donner votre avis sur cette source.
Vue 12 207 fois - Téléchargée 2 792 fois
' Pour réaliser une recherche par critères ' ici une recerche par nom Private Sub FillByNOMToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByNOMToolStripButton.Click Try Me.RepertoireTableAdapter.FillByNOM(Me.RepertoireDataSet.Repertoire, NomToolStripTextBox.Text) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub 'Si vous supprimez une valeur par maladresse, une boite de dialogue s'affiche pour s'assurer 'de la validation de la suppresion 'Du coup lors de la fermeture de la form, on enregistre les modifications Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Dim SR As New StreamReader("C:\Program Files\FindMeIfuCan\save.ini") Dim val As String val = SR.ReadLine() SR.Close() If val = "True" Then Me.Validate() Me.RepertoireBindingSource.EndEdit() Me.RepertoireTableAdapter.Update(Me.RepertoireDataSet.Repertoire) End If End Sub
j'imagine que la commande se glisserait avant la commande update!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.