Le filtre marche. Mais les modifications ne s'enregistrent pas !
Voilà, je peux filtrer maintenant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
PrivateSub cboAnnéePriseCongé_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnnéePriseCongé.SelectedIndexChanged
Dim objDataView AsNew DataView
Dim strFiltre
strFiltre = "Nom = '" & cboNom.Text & "' And AnnéeCessation = " & cboAnnéePriseCongé.Text & ""
With objDataView
' Charger la table dans le DataView
.Table = GRHDataSet1.reqTblCongésAvecNomPrénom
' Trie de la vue filtrée, type string.
.RowFilter = strFiltre
EndWith
Me.TblPersonnelreqTblCongésAvecNomPrénomBindingSource.DataSource = objDataView
EndSub
|
Mais mes modifications dans le TblDataGridView (dont le DataSource est la relation TblPersonnelreqTblCongésAvecNomPrénomBindingSource) ne s'enregistrent pas. Ils s'effectuent dans le TblDataGridView, mais non dans la table "TblCongés" ou la requête "reqTblCongésAvecNomPrénom"; donc lorsque je ferme l'application et je la réexécute, les modifications sont perdues:
Code:
1 2 3 4 5 6 7
| PrivateSub TblCongésBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblCongésBindingNavigatorSaveItem.Click
Me.Validate()
Me.ReqTblCongésAvecNomPrénomBindingSource.EndEdit()
'Me.GRHDataSet1.AcceptChanges()
Me.TblCongésTableAdapter.Update(Me.GRHDataSet1.tblCongés)
MsgBox("Enregistrement effectué avec succès.", , "Enregistrement des modifications")
EndSub |
Que pensez vous ?!