451933_de-DE

liliconcom

Formel „Alle Spalten auswerten“ unterdrücken

Ich habe versucht, das folgende Skript zu verwenden, um die Auswertung für alle Spaltenformeln in der Tabelle zu unterdrücken oder zuzulassen. Aus irgendeinem Grund erhielt ich beim dritten Ausführen des Skripts immer wieder eine Fehlermeldung (siehe Schnappschuss), aber ich kann den Fehler nicht genau finden. Vielen Dank für die Hilfe der Community beim Debuggen.

 

names default to here(1);

dt = current data table();

try(formula_suppress = dt:Formula_Suppress,
 dt << set table variable("Formula_Suppress",1);
 formula_suppress = 1;
);
wait(0.5);

formula_suppress = abs(formula_suppress - 1);
dt << set table variable("Formula_Suppress",formula_suppress);
//show(formula_suppres);

for(i=1,i<=ncol(dt),i++,
 as column(dt,i) << suppress eval(formula_suppress)
);

if(formula_suppress == 1,
 status = "Suppressed",
 status = "Evaluated"
);

NewWindow("Alert",
 showToolbars(0),showMenu(0),BorderBox(top(15),bottom(15),left(15),right(15),
  VListBox(
   TextBox("Formulas in the table are " || char(status),<<SETFONTSTYLE></SETFONTSTYLE>

 

 

 

Qualitäts- und VerfahrenstechnikBetreff: Formel „Alle Spalten auswerten“ unterdrücken

Der Syntaxfehler, der den Fehler verursachte, lag daran, dass

formula_suppress = dt:Formula_Suppress,

hat nicht das zurückgegeben, was Sie erwartet hatten.Nachfolgend finden Sie eine Überarbeitung des Codes, der ordnungsgemäß zurückgegeben wird, wenn die Tabellenvariable nicht vorhanden ist

names default to here(1);

dt = current data table();

if(try(isempty(dt:Formula_Suppress),1) == 1,
 dt << set table variable("Formula_Suppress",1);
 formula_suppress = 1;
);
wait(0.5);

formula_suppress = abs(formula_suppress - 1);
dt << set table variable("Formula_Suppress",formula_suppress);
//show(formula_suppres);

for(i=1,i<=ncol(dt),i++,
 as column(dt,i) << suppress eval(formula_suppress)
);

if(formula_suppress == 1,
 status = "Suppressed",
 status = "Evaluated"
);

NewWindow("Alert",
 showToolbars(0),showMenu(0),BorderBox(top(15),bottom(15),left(15),right(15),
  VListBox(
   TextBox("Formulas in the table are " || char(status),<<SETFONTSTYLE></SETFONTSTYLE>