MSFLEXGRIDRésolu

Question

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 !

cs_Galain · Accepted Answer

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

Sinsitrus · Answer

Merci Galain ;)

MSFLEXGRID

2 réponses

Votre réponse

Discussions similaires