cs_Roronoa77
Messages postés2Date d'inscriptionmercredi 8 février 2006StatutMembreDernière intervention21 février 2006
-
8 févr. 2006 à 12:04
cs_guizmo59
Messages postés31Date d'inscriptionmardi 20 janvier 2004StatutMembreDernière intervention 9 mars 2006
-
23 févr. 2006 à 11:03
Bonjour a tous,
en fait je vous explique briévement mon problême, j'utilise un flexgrid sous VB6 qui contient plusieurs row j'ajoute supprime ect tout se passe bien jusqu'a ce qui ne contient plus que une row dans ce cas quand j'essaie de suprimer avec un nomflexgrid.removeitem(i) une erreur se produit 30015 impossible de supprimer la derniere ligne non-fixe.
J'aimerais savoir si il es possible de contourner ce problême voila merci beaucoup ^^
cs_guizmo59
Messages postés31Date d'inscriptionmardi 20 janvier 2004StatutMembreDernière intervention 9 mars 2006 8 févr. 2006 à 18:02
j'utiles egalement un flex grid et je fais une suppression
voici le code et je peux supprimer toutes mes lignes je n'ai aucun probleme
Private Sub dataListe_BeforeDelete(Cancel As Integer)
Dim vRponce As Integer
vReponce = MsgBox("Êtes-vous certain de vouloir supprimer l'enregistrement ?", _
vbYesNo + vbQuestion, "Confirmation de la supression")
If vReponce = vbNo Then
Cancel = True
Else
End If
End Sub
Private Sub Form_Load()
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.Open (App.Path & "/CDI.mdb")
rst.ActiveConnection = cnx
rst.CursorType = adOpenStatic
rst.LockType = adLockOptimistic
rst.CursorLocation = adUseClient
rst.Open "SELECT * From personne order by nopers"
Set dataListe.DataSource = rst
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnx.Close
End Sub
nb la suppresion ce fait grace a la touche supp
et il faut avoir selectionner toute la ligne concerner