415358_zh-TW

liliconcom

如何從數據表 A 中附加一個報告，然後通過 For 循環從數據表 B 中附加另一個報告

我有兩個不同的數據表，A 和 B。 每個數據表中的一列具有相似的變量。

我從每個數據表 A 和 B 按具有相似變量的列創建子集，使用單獨的 For 循環來創建表報告並將其附加到一個新窗口中。

我注意到從子集數據表 A 創建的所有表報告都附加到新窗口中，然後是來自子集數據表 B 的所有表報告。

我想要的是為每個變量級別附加來自子集數據表 A 的表報告，然後是來自子集數據表 B 的表報告。

 

我應該怎麼寫代碼？

 

我以 Big Class 和 Big Class Families 數據集為例來說明這一點。

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

 

 

腳本編寫回复：如何從數據表 A 附加一個報告，然後從數據表 B 到 For 循環附加另一個報告

簡單的移動 JSL 就能得到你想要的

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