Bonjour à tous,
Sur un form tout bête, j'ai ce code :
qui permet juste de mettre Login et Nom en majuscules et de mettre une majuscule à la première lettre du prénom.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub Adm_USERDataGridView_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Adm_USERDataGridView.CellValidated If Not IsDBNull(Me.Adm_USERDataGridView.CurrentCell.Value) Then If Me.Adm_USERDataGridView.Columns(e.ColumnIndex).HeaderText = "Login" Or Me.Adm_USERDataGridView.Columns(e.ColumnIndex).HeaderText = "Nom" Then Dim st As String = Me.Adm_USERDataGridView.CurrentCell.Value st = st.ToUpper Me.Adm_USERDataGridView.CurrentCell.Value = st End If If Me.Adm_USERDataGridView.Columns(e.ColumnIndex).HeaderText = "Prénom" Then Dim st As String = Me.Adm_USERDataGridView.CurrentCell.Value st = StrConv(st, VbStrConv.ProperCase) Me.Adm_USERDataGridView.CurrentCell.Value = st End If End If End Sub
Sur le bouton Exit de mon form, je teste le dataset.haschanges... Or, systématiquement, juste en ouvrant/fermant ce form, sans faire de modif ou de saisie, le haschanges=true!
Bizarrement, la sub est appelée à l'ouverture du form...
Pour tester, j'ai mis un msgbox avec dataset.haschanges.tostring avant et après la partie active du code de la sub, j'ai False dans les deux cas. Mais le problème vient bien de cette sub, si je l'enlève, je n'ai plus le haschanges=true... Bizarre, vous dites...?
Voyez-vous?
Merci d'avance!
Amicalement,
JFB
Partager