MSFLEXGRID

Résolu
Signaler
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Salut !
J'ai un problème avec mon msflexgrid. Il ne récupère à l'impression REP_FactureFournisseur que la première ligne du tableau. Pouvez vous m'aider svp ?

Private Sub Command1_Click()
Dim J As String
J = 1
        With Data.Recordset
        .AddNew
            .NumAuto = T_Rech
            .Fournisseur = Texte2
            .NetAPayer = Texte3
            .Date = Texte4
            .NumFacture = Texte5
            .Mode = Texte6
            
            .Designation = Tablo.TextMatrix(J, 0)
            .Colis = Tablo.TextMatrix(J, 1)
            .Piece = Tablo.TextMatrix(J, 2)
            .Total = Tablo.TextMatrix(J, 3)
            .PrixAchat = Tablo.TextMatrix(J, 4)
            .PrixTotal = Tablo.TextMatrix(J, 5)
        .Update
        End With
    J = J + 1
REP_FactureFournisseur.Show 1
End Sub


Merci

----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

2 réponses

Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut

Tu n'as pas fait de boucle pour explorer toutes les lignes de ta grille
3 lignes à remplacer
Si le traitement est long mets un Doevents après le For

Dim J As String ---> Dim J as long
J 1 ---> For J 1 to Tablo.Rows - 1
J = J + 1 ---> Next J

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015

Merci Galain ;)