415838_de-DE

liliconcom

Code zum Überprüfen, ob in einer Datentabelle keine Zeile erstellt wurde, schließen Sie die Datentabelle

Ich erstelle eine Listendatentabellen-Untermenge aus einer Hauptdatentabelle. Dann manipuliere ich die Daten durch Tabulate() und mache sie zur Verarbeitung in die Tabelle. Überprüfen Sie dann jede der N Zeilen der Datentabelle, wenn N Zeilen = 0, schließen Sie die Datentabelle. Fügen Sie abschließend die Datentabelle in den Bericht ein. Unten ist mein Skript.

 

Das Problem ist, nachdem ich die folgenden Codes hinzugefügt habe, um die N Zeilen zu überprüfen, funktioniert es nicht mehr. Es wird kein Fehler angezeigt.

If(N Zeilen(mDT)==0, Close(mDT, kein Speichern));

 

Ich glaube, es könnte ein Fehler im geschriebenen Code sein. Brauche hier Anleitung und Hilfe.

 

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

SkriptingBetreff: Code zum Überprüfen, ob in einer Datentabelle keine Zeile erstellt wurde, Schließen Sie die Datentabelle

Es kann sein, dass Sie die Schleifenausführung nach dem Schließen der Datentabelle fortsetzen. Sie könnten versuchen, die Zeilen in der for-Schleife nach der if-Anweisung in die else-Anweisung zu verschieben:

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

oder useContinue() nach dem Schließen von mDT:

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