1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| PUBLIC SUB DoFind()
'declare a local contact object for us to work with
DIM MyContactRecord AS Collection
DIM RecordPointer AS INTEGER
'instantiate it
MyContactRecord = NEW Contacts
'instantiate it
MyContactRecord = NEW Contact
' définir le pointeur d'enregistrement pour le premier enregistrement dans la collection
RecordPointer = 1
'for debug only
PRINT "In DoFind with: " & FMain.SearchKey
' utiliser FOR EACH pour parcourir chaque objet dans la collection
FOR EACH MyContactRecord IN Contact
' attribuer chaque enregistrement temporaire à notre objet contact mondial
myContactRecord = Contact[CStr(RecordPointer)]
' si le nom correspond à la clé de recherche, mettre à jour le formulaire et laissez
IF myContactRecord.LastName = FMain.SearchKey THEN
'for debug only
PRINT "Found: " & MyContactRecord.LastName
'now update the form
Update_Click
BREAK ' forcer le retour à cette déclaration
ENDIF
'no match so we increment the record pointer and move to the next
INC RecordPointer
NEXT
END
|
12