problème avec un MSHFlexGrid

Question

Voila mon problème. Au démarage je lis dans une base de données et affiche ces données. Mais ensuite j'ai un bouton pour rafraichir et j'appelle la même fonction mais elle met énormément de temps. Je vois les lignes s'ajouter une à une
Je ne vois pas pourquoi...

j=0
While Not rs.EOF      
        For i = 1 To 23
            hflex.Col = i
            hflex.Row = j
            hflex.Text = rs.Fields(i)
            End If
        Next i
        rs.MoveNext
        j = j + 1
Wend

cs_Jack · Answer

Salut toto1980 
Je remarque plusieurs irrégularités dans ces lignes ^ :
Le "End If" : Rien à faire là : il n'y a pas de "If"
Au lieu de "While - Wend", utilise plutôt "Do While - Loop"
Le "hflex.Row = j", mets le avant le "For" : la ligne restera sélectée
Ou bien, remplace les lignes .Col=  .Row= et .Text= par une seule : .TextMatrix(i, j) = rs.Fields(i)

qui, une fois remodelé, donne :
j=0
Do While Not rs.EOF 
For i = 1 To 23
  hflex.TextMatrix(i, j) = rs.Fields(i)
Next i
rs.MoveNext
j = j + 1
Loop

(*) à confirmer l'ordre des "i, j" ou "j, i" dans TextMatrix

Vala
Jack

Problème avec un MSHFlexGrid

1 réponse

Discussions similaires