415838_ja-JP

liliconcom

データテーブルのに行が作成されていないかどうかを確認するコード、データテーブルを閉じます

メインデータテーブルからリストデータテーブルサブセットを作成しています。 次に、Tabulate（）を使用してデータを操作し、処理用のテーブルにします。 次に、各データテーブルのN行を確認します。N行= 0の場合は、データテーブルを閉じます。 最後に、データテーブルをレポートに追加します。 以下は私のスクリプトです。

 

問題は、以下のコードを追加した後、N行をチェックするために機能しなくなったことです。 エラーは表示されません。

If（N Rows（mDT）== 0、Close（mDT、保存なし））;

 

書かれたコードにエラーがあるのではないかと思います。 ここでガイドラインとヘルプが必要です。

 

saveFolder = "$TEMP/";

listDT = {};
listtab = {};
mDT = {};

col = Column(dt1Sub, ":PART");

colLevs = Associative Array(col) << Get Keys;

hb = V List Box( );

For (i=1, i<=NItems(colLevs), i++,

     r2get = dt1 << Get Rows Where(:PART == colLevs[i]);

     listDT[i] = dt1 << Subset(Rows(r2get));

     listDT[i] << Set Name(Char(colLevs[i]));
 
     listDT[i] << Save( saveFolder || Word( 1, listDT[i] << get name, "-" )||".csv");
     
     listtab = listDT[i] << Tabulate(
                Show Control Panel( 0 ),
                Add Table(
                 Column Table( Grouping Columns( :ORDER ) ),
                 Column Table( Statistics( Sum ), Analysis Columns( :Qty ) ),
                 Row Table(
                  Grouping Columns(
                  ::PART,
                  ::PART DESC,
                  :LOW PART #,
                  :LOW PART DESC,
                  :FAILURE MODE
                  )
                 )
                )
                ); 
                
     mDT= listtab << Make Into Data Table;   
     
     Close(listDT[i], no save);
    
     mDT << New Column ("Criteria", Character, "Nominal",
            Formula(
             If(As Column(6)>= 3, "Failure")
            )
     );
     mDT:Criteria << Delete Formula;
     mDT << Sort(By(Column(6)),Order(Descending), Replace Table);
     mDT << Select Where (:As Column(6) == 0);
     mDT << Delete Rows;
     
     If(N Rows(mDT)==0, Close(mDT, no save));   
          
     mDT << Set Window Size (2400, 800);
     
     mDT << Get As Report;
     
     hb << Append( ( mDT << Get As Report ) );
          
);

New Window( "Report", hb );

スクリプティングRe：データテーブルのに行が作成されていないかどうかを確認するコード、データテーブルを閉じます

データテーブルを閉じた後、ループの実行を継続している可能性があります。 ifステートメントの後にforループ内の行をelseステートメントに移動してみてください。

If(N Rows(mDT) == 0,
 Close(mDT, no save)
,//else
 mDT << Set Window Size(2400, 800);
 mDT << Get As Report;
 hb << Append((mDT << Get As Report));
);

またはmDTを閉じた後にuseContinue（）：

If(N Rows(mDT) == 0,
 Close(mDT, no save)
 Continue();
);