Each of the objects in the list.
object.Item(aIndex)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISList interface |
|
aIndex |
In, Required | int |
The item of the object in the list |
object
Fill in the list with the user-selected patients and display the number of patients in the list and their full names.
Dim aList
Dim aPatient
Dim aMessage
Dim i
Set aList = Profile.CreateList
const aPatientCount = 2
for i = 1 to aPatientCount
set aPatient = Profile.SelectPatient
aList.Add(aPatient)
next
aMessage = "The number of patients in the list is " & aList.Count
for i = 0 to aList.Count - 1
set aPatient = aList.Item(i)
aMessage = aMessage & vbNewLine & " - " & aPatient.SurnameFirstName
next
Profile.MsgBox(aMessage)