Enganche para la creación de una lista dependiente
En el ejemplo siguiente se da por supuesto que los valores que se desean para el
sistema operativo cliente dependen de los valores que selecciona el usuario para el
sistema operativo servidor.
En el campo server_os, cree un enganche de lista de opciones con la lista enumerada de valores establecida en Windows NT y UNIX:
VBScript
choices.AddItem("NT")
choices.AddItem("Unix")
Perl
push(@choices,"NT","Unix");
return @choices; #Rational ClearQuest Designer provides this line of code
Para evitar que los usuarios añadan nuevos miembros a la lista, seleccione el
recuadro de selección Limitar a la lista.
Para borrar el valor anterior de client_os cuando se selecciona un nuevo valor
en server_os, añada la siguiente línea al enganche de valor cambiado de server_os:
VBScript
SetFieldValue "client_os", ""
Perl
$entity->SetFieldValue("client_os", "");
En el campo client_os, cree un enganche de lista de opciones:
VBScript
dim server_os_choice
set server_os_choice = GetFieldValue("server_os")
select case server_os_choice.GetValue()
case "NT"
choices.AddItem ("Win95")
choices.AddItem ("NT")
choices.AddItem ("Web")
case "Unix"
choices.AddItem ("Web")
end select
Perl
$server_os_choice = $entity->GetFieldValue("server_os");
$svalue = $server_os_choice->GetValue();
if ($svalue eq "NT") {
push(@choices, "Win95","NT","Web");
} elsif ($svalue eq "Unix") {
push(@choices,"CQWeb");
}
return @choices;
#Rational ClearQuest Designer provides this line of code
En las propiedades para el enganche de client_os, seleccione
Recalcular lista de opciones, de modo que cada vez que cambie
el campo server_os, se recalculen los valores.
Añada los campos client_os y server_os al formulario utilizando controles de
recuadro de lista.