probleme flexgrid

Question

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 · Answer

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("&#202;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

voila en esperant que sa fonctione

jojolebestof · Answer

J'ai eu le même pb que toi et voici une solution qui pour moi fonctionne:
nomflexgrid.rows = 0

J'espère que ce va t'aider!!

@+

cs_Roronoa77 · Answer

Oui cela fonctionne merci a vous deux de votre aide ^_^

cs_guizmo59 · Answer

N'oublis pas de validez les reponses pour permettre a d'autre personne d'avoir un solution ^^

Probleme flexgrid

4 réponses

Discussions similaires