SetListMembers

Descrizione

Imposta i membri in un elenco denominato.

Per Perl, si noti che questo parametro รจ un array, in modo che non sia necessario alcun delimitatore per separare gli elementi del membro.

Sintassi

VBScript

session.SetListMembers listName, (Members) 

Perl

$session->SetListMembers(listName, Members); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
listName
Una stringa che contiene il nome dell'elenco.
Membri
Per VBScript, un array di stringhe Variant che contiene i membri dell'elenco.

Per Perl, un riferimento a un array di stringhe contenente i membri dell'elenco.

Valore di ritorno
Nessuno.

Esempi

VBScript

' This example assumes there is at least 1 dynamic list
' in the current database-access session.

set sessionObj = GetSession 

sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""

Dim NewValues(2)
    NewValues(0) = "ABC"
    NewValues(1) = "123"
    NewValues(2) = "XYZ"

DynamicListNamesRef = sessionObj.GetListDefNames

set ListName = DynamicListNamesRef(0)   

print ListName   

sessionObj.SetListMembers ListName, (NewValues)

members = sessionObj.GetListMembers(ListName)

' print out the list members...
For Each member In members
   print member
Next 

Perl

# This example assumes there is at least 1 dynamic list
# in the current database-access session.

$sessionObj = $entity->GetSession();

$sessionObj->UserLogon("admin","","SAMPL","");

# Get a list of the names of Dynamic Lists that exist in this database...

$ListDefNamesREF = $sessionObj->GetListDefNames();

$ListName = @$ListDefNamesREF[0];

# Use SetListMembers() to set the list to a specific list of values...

print "\nSetting list '$ListName' to ('ABC', '123', 'XYZ')...\n";

@NewValues = ('ABC', '123', 'XYZ');

$sessionObj->SetListMembers($ListName, \@NewValues);

$members = $sessionObj->GetListMembers($ListName);

#print out the list members
foreach $member (@$members){
   print $member, "\n";   
   } 

Feedback