MSFLEXGRID

Résolu
Sinsitrus Messages postés 855 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 18 févr. 2010 à 13:58
Sinsitrus Messages postés 855 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 18 févr. 2010 à 17:08
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

Profil bloqué
18 févr. 2010 à 15:32
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
3
Sinsitrus Messages postés 855 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
18 févr. 2010 à 17:08
Merci Galain ;)
0