425493_es-ES

liliconcom

Ingresando fechas en la tabla de datos desde el cuadro de diálogo

 

Estoy buscando ingresar una fecha en una fila específica en una tabla de datos después de que el usuario la ingrese desde un cuadro de diálogo (por ejemplo, en la fila 5). ¿Hay alguna forma de hacer esto?

 

Gracias

 

Names default to Here(1);
dt = New Table( "Untitled", 
      New Column( "Date 1", Numeric, "Continuous", Format( "yyyy-mm-dd", 12 )),
      New Column( "Date 2", Numeric, "Continuous", Format( "yyyy-mm-dd", 12 )),
);



q = New Window( "Enter Dates",  // Window for entering dates 
  Spacer Box( size(500, 30)), 
    H List Box(
  Spacer Box(Size(100, 10)),
  V list box (
      Spacer Box(Size(10, 15)),
            Text Box("Enter Dates (yyyy-mm-dd)"),
            Spacer Box(Size(10, 20)),
   Text Box("Enter Date 1"),
   Spacer Box(Size(10,10)),
   fontobj = da =  Number Edit box(),
    da << Set Format( Format("yyyy-mm-dd", 12)),
    da << Set (Date MDY ( 12, 31, 2000)),
   Spacer Box(Size(10,10)),
   Text Box("Enter Date 2"),
   Spacer Box(Size(10,10)),
   fontobj = db =  Number Edit box(),
    db << Set Format( Format("yyyy-mm-dd", 12)),
    db << Set (Date MDY ( 12, 31, 2000)),
        ),
    ),
    Button Box( "Continue",
  
  //code for adding dates to data table
  
  q <<CLOSEWINDOW></CLOSEWINDOW>

Tabla de datosScriptingRe: ingresar fechas en la tabla de datos desde el cuadro de diálogo

Aquí hay una modificación a su código para manejar tanto la entrada de texto de la fecha como la entrada numérica de la fecha.También tenga en cuenta que hay que agregar filas a la tabla de datos antes de que se puedan completar.

Names Default To Here( 1 );
dt = New Table( "Untitled",
 New Column( "Date 1", Numeric, "Continuous", Format( "yyyy-mm-dd", 12 ) ),
 New Column( "Date 2", Numeric, "Continuous", Format( "yyyy-mm-dd", 12 ) ),

);
dt << add rows( 1 );



q = New Window( "Enter Dates",   // Window for entering dates 
 Spacer Box( size( 500, 30 ) ),
 H List Box(
  Spacer Box( Size( 100, 10 ) ),
  V List Box(
   Spacer Box( Size( 10, 15 ) ),
   Text Box( "Enter Dates (yyyy-mm-dd)" ),
   Spacer Box( Size( 10, 20 ) ),
   Text Box( "Enter Date 1" ),
   Spacer Box( Size( 10, 10 ) ),
   fontobj = da = Number Edit Box(),
   da << Set Format( Format( "yyyy-mm-dd", 12 ) ),
   da << Set( Date MDY( 12, 31, 2000 ) ),
   Spacer Box( Size( 10, 10 ) ),
   Text Box( "Enter Date 2" ),
   Spacer Box( Size( 10, 10 ) ),
   fontobj2 = db2 = Number Edit Box(),
   db2 << Set Format( Format( "yyyy-mm-dd", 12 ) ),
   db2 << Set( Date MDY( 12, 31, 2000 ) ),

  ),

 ),
 Button Box( "Continue",
  dt:Date1[1] = da << get;
  dt:Date2[1] = Informat( db2 << get text, "yyyy-mm-dd" );
  //code for adding dates to data table
  
  q << closewindow;
 )
);