425493_fr-FR

liliconcom

Saisie de dates dans la table de données à partir de la boîte de dialogue

 

Je cherche à entrer une date dans une ligne spécifique d'un tableau de données après que l'utilisateur l'ait saisie à partir d'une boîte de dialogue (par exemple, dans la ligne 5). Y a-t-il un moyen de faire cela?

 

Merci

 

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>

Tableau de donnéesScriptRe: Saisie de dates dans la table de données à partir de la boîte de dialogue

Voici une modification de votre code pour gérer à la fois la saisie de texte de la date et la saisie numérique de la date.Notez également qu'il faut ajouter des lignes à la table de données avant de pouvoir les remplir.

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

Re: Saisie de dates dans la table de données à partir de la boîte de dialogue

Merci!