116400_de-DE

liliconcom

Gibt es eine Funktion, die die gesamte Tabelle in einer Tabellenbox ersetzen kann?

Ich habe ein leeres / Standardtabellenfeld geöffnet, und ich wollte das gesamte Tabellenfeld mit dem folgenden Skript ersetzen. Gibt es eine Möglichkeit, [table box] mit zu aktualisieren 

 

Dieses Skript, das ich jetzt verwende, ist langweilig:

button box("UPDATE",
    dtmain = Open(filename, invisible);
    tb << delete row( 1 );
    tb << delete row( 1 );<BR />    // 50 lines of delete row()<BR />
    tb << insert row( 1, {"a", 1} );
    tb << insert row( 1, {"b", 2} ); <BR />    // 50 lines of insert row()
&nbsp;);

Danke im Voraus:)

Re: Gibt es eine Funktion, die die gesamte Tabelle in einer Tabellenbox ersetzen kann?

Ich habe festgestellt, dass es einfacher ist, die Tabelle zu löschen und zu ersetzen, anstatt sie zu aktualisieren.  Das folgende einfache Skript veranschaulicht diese Methodik

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );

New Window( "The Table",
 vlb = V List Box(),
 theButton = Button Box( "UPDATE",
  Try( theTable << delete );
  theList = {};
  Insert Into( theList, dt:Name[Random Integer( 1, 40 )] );
  Insert Into( theList, dt:Name[Random Integer( 1, 40 )] );
  theTable = Table Box( String Col Box( "Name", theList ) );
  vlb << append( theTable );
 )
);

// Initialize the table
theList = {};
Insert Into( theList, dt:Name[Random Integer( 1, 40 )] );
Insert Into( theList, dt:Name[Random Integer( 1, 40 )] );
theTable = Table Box( String Col Box( "Name", theList ) );
vlb << append( theTable );