415358_es-ES

liliconcom

Cómo agregar un informe de la tabla de datos A seguido de otro informe de la tabla de datos B hasta el ciclo For

Tengo dos tablas de datos diferentes, A y B. Hay una columna de cada tabla de datos que tiene una variable similar.

Creo un subconjunto de cada tabla de datos A y B por columna que tiene una variable similar usando un bucle For separado para crear un informe de tabla y agregarlo en una nueva ventana.

Observo que todos los informes de tabla creados a partir de la tabla de datos del subconjunto A se adjuntan en una nueva ventana y seguidos por todos los informes de la tabla de datos del subconjunto B.

Lo que quiero es agregar un informe de tabla de la tabla de datos del subconjunto A seguido del informe de la tabla de datos del subconjunto B para cada nivel de variable.

 

¿Cómo debo escribir el código?

 

Estoy usando el conjunto de datos Big Class y Big Class Families como ejemplo para ilustrar esto.

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);

 

 

ScriptingRe: Cómo agregar un informe de la tabla de datos A seguido de otro informe de la tabla de datos B a través del bucle For

Con un simple movimiento de JSL obtendrá lo que desea

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);