editer plusieur msflexgrid

**metaldan** · 16/12/2009, 05h58

bonjour

Je fait une aplication pour editer, copier et créer des enrégistrements d'une BD MYSQL. Je veux avoir 2 msflexgrid : GRID1 pour modifier les enrégistrements et GRID2 pour créer de nouvelles enregistrements, ou copier un enrégistrement.

Initialement, je choisis la table à éditer, ensuite, je trouve la CLÉ PRIMAIRE, en-tete, et contenu. Un double clic pour commencer à editer les valeurs d'une ligne ( avec la touche ENTER, je me déplace d'une cellule à droite , une fois la dernière colonne éditée, je mets à jours la DB

Je suis capable de déplacer une boite TEXT1 dans mon GRID1, mais quand je copie la procédure pour le GRID2 , ça ne marche pas.

Avez vous une idée.

Plus tard je vais mettre les functions d'édition dans un module

Merci à l'avance. Voici tout les fichiers de mon programme ( voir MODIF_ENR.frm)

**OhMonBato** · 16/12/2009, 08h46

Bonjour,

merci de joindre les fichiers compressés au fromat zip qui est le seul format reconnu par défaut sous Windows.
Plutôt que de joindre le code complet de ton programme (est-ce vraiment nécessaire ?), il est préférable de mettre dans ton message les extraits de code concernés par ton problème (en les mettant entre les balises CODE, le bouton # situé au dessus de la zone d'édition du messsage).

**metaldan** · 16/12/2009, 14h22

Merci pour le commentaire constructif. J'ai vais faire attention. Voici le code concerné.

Le même code, mais avec GRID1 à la place de GRID2, fonction très bien.

Est-il possible que le TEXT1 s'affiche, mais SOUS le GRID2???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
Private Sub GRID2_DblClick()
 
mcol = GRID2.ColSel
mrow = GRID2.RowSel
 
If mcol = 0 Or mrow = 0 Then Exit Sub
 
If MODIF = "FINI" Then                 ' trouve la valeur initial de la clé primaire
For J = O To UBound(DB_CHAMP,2 )
    If DB_CHAMP(3, J) = "PRI" Then
        'PRI_TITRE = DB_CHAMP(0, J)
        PRIMAIRE(5) = GRID2.TextMatrix (mrow, J)
        Exit For
    End If
Next J
End If
 
 
 With GRID2
        L = .Left + .CellLeft
        T = .Top + .CellTop
        W = .CellWidth
        H = .CellHeight
        m = .Text
        mcol = .Col
        mrow = .Row
    End With
 
         With Text1             'mObjet
            .Move L, T, W, H
            .Text = m
            .SelStart = 0
            .SelLength = Len(.Text)
            .Tag = .Text 
            .Visible = True
            .SetFocus
        End With
 
 
End Sub