573276_de-DE

liliconcom

Fehlermeldung beim Schließen einer selbst erstellten Anwendung über die Schaltfläche ("Unresolved Column at row 1")

Wie kann ich diese Fehlermeldung hier verschwinden lassen?

Es erscheint, wenn ich Tabelle und Fenster über die Schaltfläche "Fenster schließen" schließe, nachdem ich zum ersten Mal eine Grafik gezeichnet habe. Ich habe das Skript unten kopiert, aber um es auszuführen, müsste man eine entsprechende Datentabelle öffnen (siehe beigefügtes Beispiel). Diese und nur diese Tabelle sollte beim Ausführen des Skripts geöffnet sein. Dieses Skript ist ein Versuch, einen kleinen Desktop-Stabilitätsrechner (sehr schmutzig, ziemlich schnell) / Helfer beim Schreiben von Berichten, Bewerten der Haltbarkeit von Produkten usw. zu haben. Es ermöglicht dem Benutzer, unsere normalisierten Stabilitätsdaten (wobei t = 0 1000 % rel. entspricht) auf hypothetische Anfangskonzentrationen eines beliebigen Qualitätsparameters (soweit er numerisch ist) anzuwenden und schnell zwischen Einstellungen und Parametern zu wechseln. Ich habe es so weit geschafft, aber diese Fehlermeldung macht mich wahnsinnig. (Kann ich das auch auf dem nächsten zeigen Persönliche Nordics-Benutzergruppe: 05. Oktober 2022 ?)

 

 

Delete Symbols();
Names Default To Here( 1 );

dt = Current Data Table();
dt << Clear Row States;
dt << Clear Select;  // avoids accidentally including columns in colList

// alpha level for bivariate plot
alpha = 0.1;

// get lists for model selection
Batch = Associative Array( dt:Batch ) << Get Keys; // direct column reference

For( i = 1, i <= N Row( dt ), i++, // find all rel% columns
 For( j = 1, j <= N Col( dt ), j++,
  If( Column( j )[i] == 0,
   For( k = 1, k <= N Col( dt ), k++,
    If( Column( k )[i] == 100,
     Column( k ) << Set Selected( 1 )
    )
   )
  )
 )
);
colList = dt << Get Selected Columns;

// length of column list box
nItems = N Items( colList );

// radio box argument
rb1_expr = Expr(      
 dt << Clear Row States;
 one_rb = rb1 << Get Selected;
 dt << Select Where( (dt:Batch == one_rb) ); // direct column reference
 dt << Invert Row Selection;
 dt << Hide and Exclude;
 dt << Invert Row Selection );
 
// "draw graph" button & column list selection arguments
action_expr = Expr( 
 vlb << Delete; // delete existing vlb
 
 yColAbs = Eval(
  Eval Expr(
   dt << New Column( one_rb || " / " || " / " || "start level = " || Char( startLevel ) || " for " || Char( yColRel ),
   formula( Expr(startLevel) / Expr(100) * (As Column( Expr( yColRel ) ) ) )
   )
  )
 );
 
 pb << Append( // append new vlb with fresh graph
  vlb = V List Box(
   biv = Bivariate(
    Y( yColAbs ), // is this the culprit?
    X( dt:Time ), // direct column reference
    Fit Line(
     {Confid Curves Fit( 1 ),
     Confid Curves Indiv( 1 ),
     Confid Shaded Fit( 1 ),
     Confid Shaded Indiv( 1 ),
     Line Color( {230, 159, 0} )},
     {Set α Level( 0.1 )}
    ),
    Automatic Recalc( 1 ),
    SendToReport(
     // note reference to one_rb below in use for changing y axis label
     Dispatch( {}, one_rb, TextEditBox, {Set Text( "QC parameter value" )} ),
     Dispatch( {}, "timepoint 1", TextEditBox, {Set Text( "Time [months]" )} ),
     Dispatch( {}, "Linear Fit", OutlineBox, {Close( 1 )} )
    ),
   )
  )
 )
);


// model selection window with radio buttons & colum list box
nw = New Window( "Model selection",
 Show Menu( 0 ),
 Show Toolbars( 1 ), // to have access to cross hair
 Border Box( Top( 0 ), Bottom( 20 ), Left( 20 ), Right( 10 ),
  H List Box(
   
   Panel Box( "Batch",
    rb1 = Radio Box(
     Eval List( Batch ),
     rb1_expr
    ), 
   ),
   
   Panel Box( "QC parameter (y-axis)",
    stabDat = Col List Box(
     Max Selected( 1 ),
     Width( 250 ),
     N Lines( nItems ),
     On Change(
      yColRel = Column( dt, (stabDat << Get Selected) );
      If( Is Empty( startLevel ),
       //then
       Empty(),
       //else
       action_expr
      )
     )
    )
   ),
   stabDat << Append( colList );
   
   Panel Box( "Action", 
    V List Box(
     H List Box (
      neb = Number Edit Box( Empty(), 7, << Set Function(
       startLevel = neb << Get;
       If( Is Empty( yColRel ),
       //then
       Empty(),
       //else
       action_expr
      ) ) ),
      Spacer Box( Size( 5, 0 ) ),
      Text Box( "Enter start level" )
     ),
     
     Spacer Box( Size( 0, 10 ) ),
          
     Button Box( "Draw graph",
      If( ( Is Empty( startLevel ) + Is Empty( yColRel )) > 0,
       // then 
       New Window( "Message", modal,
        V List Box(
         Text Box( "QC parameter selection and/or start level missing!" ),
         Spacer Box( size( 0, 10 ) )
        )
       ),
       // else
       action_expr
      )
     ),
     
     Spacer Box( Size( 0, 10 ) ),
     
     Button Box ( "Close Window",
      If( !Is Empty( PF ), PF << Close Window);
      nw << Close Window;
      Close(dt, no save)     
     )
    )
   ),

   pb = Panel Box( "Model",
    vlb = V List Box () // space for model graph
   ) 
  )
 )
);

// making the initially selected buttons active in row selection 
one_rb = rb1 << Get Selected;
dt << Select Where( (dt:Batch == one_rb) );
dt << Invert Row Selection;
dt << Hide and Exclude;

Skripterstellung