Los bericht bekijken
  #12  
Oud 23 augustus 2006, 12:03
djunclesam djunclesam is offline
Lid
Model: Palm T|X
 
Geregistreerd: 11 juli 2006
Berichten: 39
Zo werkt het wel

dim iMax as integer, iTemp as integer, iNamed1 as String

iMax = 0
db.MoveFirst
While Not db.EOF
iTemp = db.vkeeper
if iTemp > iMax then iNamed1 = db.Named
if iTemp > iMax then iMax = iTemp
db.MoveNext
Wend

Field1.Text=iNamed1

Nu eens kijken of we er dan ook de een na grootste uit kunnen krijgen
Met citaat reageren