ISEdit.LookupArray

Description

The array of the lookup items for the specified edit control.

Syntax

object.LookupArray

Part	Attribute	Type	Description
`object`	Required	ISEdit	The `object` always implements the ISEdit interface

Restriction: This property is writeonly.

Return Value

object

Example

Fill in the lookup list with providers for the specified edit control.

Sub Main()
  Dim aEdit
  Dim aFilter
  Dim aProviders, aProvider
  Dim aLookupArray 

  Set aEdit = Form.Controls_("edtInform")
  
  set aFilter = Profile.CreateProvidersFilter
  aFilter.Category = 2 'pcProvider  
  set aProviders = Profile.LoadProvidersByFilter(aFilter)
  
  
  ReDim aLookupArray(aProviders.Count, 2) 
  
  for i = 0 to aProviders.Count - 1
    set aProvider = aProviders.Item(i)
    aLookupArray(i, 0) = aProvider.Id
    aLookupArray(i, 1) = aProvider.FullName 
  next 'i 
  
  aEdit.LookupArray = aLookupArray
End Sub

Note: The value of the 'EditKind' property should be set to 'edkdCustomLookup'. This macro should be executed in any event handler of the form control.

In Profile Client v8 on User Interface LookupArray cannot be found.

Version information

Added in v7.8.0