title image


Smiley Flexgrid füllen
Hallo, kann mir einer sagen, warum ich mit folgendem Code nur eine Zeile im Flexgrid kann füllen, und dann nichts mehr ?



a = 1

rst2.MoveFirst



Do While Not rst2.EOF

With MSFlexGrid2

rst2.Find "Datum LIKE '" & Text1.Text & "'"

If rst2.EOF = False Then

.TextMatrix(a, 0) = rst2.Fields(4).Value

.TextMatrix(a, 1) = rst2.Fields(5).Value

.TextMatrix(a, 2) = rst2.Fields(1).Value

.TextMatrix(a, 3) = rst2.Fields(2).Value

rst2.MoveNext

End If

End If

End With

a = a + 1

Loop



Danke Philippe

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: