從對話框中將日期輸入到數據表中
我希望在用戶從對話框中輸入日期後將日期輸入到數據表的特定行中（例如：輸入第 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;
)
);
