This property defines the method for loading the lookup items.
object.LoadAction
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISServiceLookupParam interface |
Display the number of the service lookup items, their descriptions, codes and IDs.
Dim aParam
Dim aLookupType
Dim aList
Dim aItem
Dim aMessage
Set aParam = Profile.MakeServiceLookupParam
aParam.Value = "AD"
aParam.LoadAction = 3 'clulaDescription
aLookupType = 20
set aList = Profile.LoadLookupList2(aLookupType, aParam)
aMessage = "Services Count = " & aList.Count & vbNewLine & vbNewLine
for each aItem in aList
aMessage = aMessage & aItem.Id & vbTab & aItem.Code & vbTab & aItem.Description & vbNewLine
next
Profile.MsgBox(aMessage)