425493_zh-CN

liliconcom

从对话框中将日期输入到数据表中

 

我希望在用户从对话框中输入日期后将日期输入到数据表的特定行中（例如：输入第 5 行）。 有没有办法做到这一点？

 

谢谢

 

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>

数据表脚本编写回复：从对话框中将日期输入到数据表中

这是对您的代码的修改，以处理日期的文本输入和日期的数字输入。另请注意，必须先将行添加到数据表中，然后才能填充它们。

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

回复：从对话框中将日期输入到数据表中

谢谢！