415358_fr-FR

liliconcom

Comment ajouter un rapport du tableau de données A suivi d'un autre rapport du tableau de données B via la boucle For

J'ai deux tables de données différentes, A et B. Il y a une colonne de chaque table de données avec une variable similaire.

Je crée un sous-ensemble à partir de chaque table de données A et B par colonne qui a une variable similaire en utilisant une boucle For séparée pour créer un rapport de table et l'ajouter dans une nouvelle fenêtre.

Je remarque que tous les rapports de table créés à partir de la table de données de sous-ensemble A sont ajoutés dans une nouvelle fenêtre et suivis de tous les rapports de table de la table de données de sous-ensemble B.

Ce que je veux, c'est ajouter un rapport de table à partir de la table de données de sous-ensemble A suivi d'un rapport de table à partir de la table de données de sous-ensemble B pour chaque niveau de variable.

 

Comment dois-je écrire le code ?

 

J'utilise l'ensemble de données Big Class et Big Class Families comme exemple pour illustrer cela.

dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );

vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;

For (i=1, i <=N Items(colleveldt1), i++,
 dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
 listdt1[i] = dt1 << Subset(Rows(dt1row));
 tb = listdt1[i]<< Get As Report;
 vb << Append (Table Box(tb));

);
 
For (i=1, i <=N Items(colleveldt2), i++,
 dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
 listdt2[i] = dt2 << Subset(Rows(dt2row));
 tb = listdt2[i]<< Get As Report;
 vb << Append (Table Box(tb));
 
 
);

New Window("Report", vb);

 

 

ScriptRe: Comment ajouter un rapport du tableau de données A suivi d'un autre rapport du tableau de données B via la boucle For

Un simple déplacement de la JSL vous donne ce que vous voulez

Names Default To Here( 1 );

dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );

vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;

For (i=1, i <=N Items(colleveldt1), i++,
 dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
 listdt1[i] = dt1 << Subset(Rows(dt1row),invisible);
 tb = listdt1[i]<< Get As Report;
 vb << Append (Table Box(tb));
dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
 listdt2[i] = dt2 << Subset(Rows(dt2row),invisible);
 tb = listdt2[i]<< Get As Report;
 vb << Append (Table Box(tb));
);

New Window("Report", vb);